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Introduction 


Programming with RT—11 examines the RT—11 facilities that 
enable you to develop executable programs in MACRO-11, 
FORTRAN IV, or BASIC-11. Programming with RT-11 
comprises two volumes. Volume 1 covers the program de- 
velopment process, RT—11 debugging aids, libraries, over- 
lays, and the FORTRAN IV and BASIC—11 subroutine con- 
ventions for MACRO—11 interfacing. Volume 2 discusses the 
use of programmed requests to perform file and terminal 
input/output, foreground/background communication, and 
synchronous and asynchronous input/output operations. 
Volume 1 contains chapters 1 through 7. Chapter 1, 
“Developing Programs in MACRO—11 and FORTRAN IV,” 
describes the program development cycle for MACRO—11 
and FORTRAN IV, focusing on the conventions for assem- 
bling, compiling, and linking source programs. Chapter 2, 
“Executing Programs,” examines the execution of fore- 
ground, background, and system jobs and discusses the 
EXECUTE command. Chapter 3, ““Developing Programs in 
BASIC,” gives an overview of the program development 
cycle for BASIC—11 and discusses the procedures for in- 
voking the BASIC interpreter; creating, modifying, precom- 
piling, and saving programs; and leaving the interpreter. 
Chapter 4, ‘‘Debugging Programs,’’ explains the use of ODT 
and VDT in debugging programs and the process of failure 
analysis. Chapter 5, ‘‘Using Libraries,” describes the crea- 
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tion, modification, and use of macro and object libraries. 
Chapter 6, ‘Designing and Implementing Overlay Struc- 
tures,’’ discusses the procedures for checking memory use 
and implementing program overlays. Chapter 7, “Using 
Language Interfaces,’’ examines the functions of MACRO-11 
subroutines in FORTRAN IV and BASIC—11 programs and 
describes the FORTRAN/MACRO and BASIC/MACRO in- 
terfaces. (The introductory chapter of volume 2 describes 
its thirteen chapters in detail.) 


Equipment 


Resources 


In order to do the practice exercises, you will need access 
to a working RT—11 system with at least 500 blocks of disk 
space for your files. By a working system, we mean that: 


¢ The RT-—11 monitor program has been transferred 
from its storage disk to main memory (in other 
words, the system has been bootstrapped) 


¢ The FORTRAN IV compiler or BASIC~11 interpreter 
has been installed and is available for use 


Although every effort has been made to make Program- 
ming with RT—11 self-contained volumes, you may need to 
refer to the following manuals from the RT—11 documen- 
tation set for additional information: 


¢ RT-11 Installation Guide 

¢ RT-11 Programmer’s Reference Manual 
e RT—11 Software Support Manual 

¢ RT-—11 System Generation Guide 

e RT—11 System Message Manual 
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e RT-11 System User’s Guide 
e RT—11 System Utilities Guide 


The documentation to which we refer throughout the text 
is written for RT—11 version 5.0. We also used a computer 
system equipped with RT—11 version 5.0 to generate the 
programs in our examples and practices. If you own a newer 
version of RT—11, you may also need a copy of the latest 
System Release Notes to determine the difference between 
your system and the one described here. 

Programming with RT-11 is written under the as- 
sumption that you know how to program in MACRO-11, 
FORTRAN IV, or BASIC—11. The authors assume that you 
can manipulate files and get directory listings on an RT—-11 
system and are familiar with RT—11 conventions for device 
and file specifications, the operation of the Foreground/ 
Background monitor, and monitor components and their 
functions. If you need additional information on RT—11 
conventions and programming procedures, you may refer 
to some of the publications listed below: 


¢ Working with RT—11 (Digital Press, 1983) 


e¢ Tailoring RT—11: System Management and Program- 
ming Facilities (Digital Press, 1984) 


e MACRO-11 Language Reference Manual 

e FORTRAN IV Language Reference 

e RT—11/RSTS/E FORTRAN IV User’s Guide 
e BASIC—11 Language Reference Manual 

e BASIC-1 1/RT-1 1 Installation Guide 

¢ BASIC—11/RT—11 User’s Guide 

For a directory of documentation products, write: 
Digital Equipment Corporation 

Circulation Department, MK01/W83 


Continental Boulevard 
Merrimack, NH 03054 
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Notations 


The following symbols are used in the two volumes to rep- 
resent specific elements: 


(KEY) indicates keyboard and keypad keys, their func- 
tions, or key combinations 


COMMANDS (uppercase) indicates input 
Prompts (upper and lowercase) indicates computer output 


[ ] indicates parts of a command that are optional (the 
brackets are not part of the command string) 
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Developing 
Programs 

in MACRO_—11 
and FORTRAN IV 


RT-11 allows you to program in assembly, compiled, and 
interpreted languages. In this chapter, you will learn the 
basic command procedures and concepts needed to de- 
velop programs in MACRO-11, the language processed by 
the RT—11 assembler, and FORTRAN IV, one of the com- 
piled languages you may use with RT—11. Options for the 
FORTRAN IV compiler are generally different from those 
for other compilers, but the phases of program develop- 
ment are the same for all compiled languages. 

This chapter shows you how to use the commands, 
MACRO, FORTRAN, and LINK, in program development. 
When you have completed this chapter, you will be able to 
produce an executable file, using error-free FORTRAN IV 
or MACRO-11 source code. You will learn to control LINK, 
the linking program, by enabling or disabling the options: 
/BOTTOM, /FOREGROUND, /LDA, /MAP, and /STACK. 

In addition, you will learn to control the assembly of 
MACRO-11 source programs by enabling or disabling the 
options: /ALLOCATE, /CROSSREFERENCE, /ENABLE, /LIST, 
/OBJECT, and /SHOW. You will learn to control the com- 
pilation of FORTRAN IV source programs by enabling or 
disabling the options: /CODE, /HEADER, /LIST, /OBJECT, 
/ONDEBUG, and /SHOW. 
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Program Development 


The process of writing a program in source code, translat- 
ing it into machine code, and producing an executable file 
is called program development. The process is made up of 
the following steps: 


1. Create or Edit a Program. You use an editor program 
to create or modify a file containing your MACRO-11 
or FORTRAN IV source code. 


2. Assemble or Compile a Program. You use the 
MACRO-—11 assembler or the FORTRAN IV compiler 
to check that the syntax of the source file is correct 
and to produce an object module if there are no syn- 
tax errors. An object module contains the machine 
code for your program. You can divide programs 
across more than one source file, so that they com- 
pile into more than one object module. Because ob- 
ject modules contain relocatable code and code that 
indicates how the modules can be linked together, 
object modules cannot be executed. 


3. Link Object Modules. You link object modules to 
produce a file that can be loaded into memory and 
executed. Such a file is called a load module. You 
may specify whether the load module runs in fore- 
ground or in background. 


4. Execute and Test the Load Module. You load the 
load module into memory and execute it. For fore- 
ground or system programs, you must provide param- 
eters that control memory allocation. 


Figures 1 and 2 show the sequence of steps used in devel- 
oping MACRO-—11 and FORTRAN IV programs. 


Assembly and Compilation 


To assemble a program written in MACRO-11 you type the 
command, MACRO. To compile a program written in FOR- 
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Figure 1. 
Program Development in MACRO-11 
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Figure 2. 
Program Development in FORTRAN IV 


EDIT OR 
KED 


SOURCE 
PROGRAM 
PROG. FOR 


FORTRAN 
COMPILER 


COMPILER 
LISTING 


OTHER OBJECT, 
MODULES 
AND/OR 
LIBRARIES 


KEY TO SYMBOLS 


— SYSTEM PROGRAMS 
YOU WILL USE 


FILES THAT YOU 
= WILL CREATE OR 
REFERENCE 
RUN — DOCUMENTATION YOU 
MAY GENERATE 


OBJECT 
MODULE 
PROG. OBJ 


PROG. LST 


LOAD MODULE 
USUALLY 
PROG. SAV 


LOAD MAP 


PROG. MAP 


Chapter 1 Developing Programs in MACRO-—11 and FORTRAN IV 7 


TRAN IV you type the command FORTRAN. These com- 
mands, combined with various options, allow you to: 


e Produce zero, one or more object modules 
e Produce listings 
e Process multiple source files 


¢ Control the allocation of storage space to output files 


Controlling the Production of an Object Module 


When the MACRO-11 assembler or FORTRAN IV com- 
piler produces an object module, it automatically gives the 
file containing the module the file name of the source file 
with the file type .OBJ. If a file with the same file name and 
file type already exists, that file is automatically deleted. To 
prevent this, you can specify a unique file name and file 
type for the new object module produced by using the /OB- 
JECT option in the following format: 


MACRO/OBJECT:NEW-FILESPEC SOURCE-FILESPEC 
or 
FORTRAN/OBJECT:NEW-FILESPEC SOURCE-FILESPEC 


EXAMPLE 


When assembling the program PROG.MAC, you could 
specify that the object module file should be named 
NEWPRG.OBJ, by using the command: 


»-MACRO/OBJECT:NEWPRG PROG 


so that the previous module PROG.OBJ would not be 
deleted. 


You may want to see whether a source file is without 
syntax errors, but not need to produce an object module. 
You can use the /NOOBJECT option to prevent the produc- 
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tion of object modules. The /NOOBJECT option is used in 
the following format: 


MACRO/NOOBJECT SOURCE-FILESPEC 
or 
FORTRAN/NOOBJECT SOURCE-FILESPEC 


A previous version of an object module can also be saved 
by making a copy of it in a file with a different name. 


Generating Listings 


When your assembler or compiler detects syntax errors in 
your program, you need to know where they occurred. 
MACRO-11 and FORTRAN IV listings can help because 
they: 


e List the lines of code in the source file 
e Indicate where any syntax errors were detected 
e Give details about the program sections 


e List assembler or compiler statistics 
In addition, MACRO-—11 assembler listings can: 


e Include the table of symbol names that were used in 
the source code, together with their values 


¢ Show the addresses that will be used by the load 
module and the data that will be loaded into those 
addresses 


¢ Indicate which references are external or relocatable 
FORTRAN IV compiler listings can: 


¢ Include a table of variables, with their names, data 
types, and offsets 


¢ Include a table of arrays, with their names, data 
types, section names, offsets, and dimensions 
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¢ Include a table of subroutines and functions refer- 
enced, with their names and types 


e Provide each line of code with a sequence number 


These listings will be discussed in detail later. 

To get an assembler or compiler listing of a source file, 
you can use the /LIST option. The default file type for a 
listing is .LST. 


EXAMPLE i 
The command: 
»-MACRO/LIST PROG 


assembles the file PROG.MAC and tells the logical 
device LP: to print a listing. The command: 


-FORTRAN/LIST PROG 
compiles the file PROG.FOR and prints a listing. 2 


You can also specify the file name and file type of a 
listing file. The command format is: 


MACRO/LIST:FILESPEC SOURCE-FILENAME 
or 
FORTRAN/LIST:FILESPEC SOURCE-FILENAME 


The /LIST option can store a listing in a file. The ben- 
efit of this is that the file need not be printed out immedi- 
ately and more than one copy can be printed. To store a 
listing, you type the /LIST option after the file name. 


EXAMPLE 


-MACRO PROG/LIST | aa 


If you have the listing file PROG.LST and again pro- 
cess the source file PROG with the /LIST option, the pre- 
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vious listing file is automatically deleted. To prevent this, 
you can give the new listing a file name other than the de- 
fault file name, using the /LIST option but with a file name 
qualifier. The command takes the form: 


MACRO/LIST:LIST-FILESPEC SOURCE-FILENAME 
or 
FORTRAN/LIST:LIST-FILESPEC SOURCE-FILENAME 


erro a Ne nny MD RRR NRE RE I OM OT MR MET MASI MH PON Th A TAHA Ean OPA BB I HST IR ERM 


EXAMPLE 


i The following command to compile the FORTRAN IV 
program PROG.FOR creates the listing file AAA. BBB 
| but does not delete PROG.LST: 


| JFORTRAN/LIST:AAA.BBB PROG ts i 


ET ETN ee PERNT Aer RES een Seren ke eT er Vee We CRORE OT oT mr TY CMM NTC. Meck: MATTE Mes yr mne | 


When you use a file name qualifier, listings are not au- 
tomatically sent to LP:. To get a hard copy, you must use a 
separate PRINT command. 


Practice 1. Type in either the MACRO-11 program PRO101.MAC 
1—1 or the FORTRAN IV program PR0O101.FOR: 


MACRO-11 


-TITLE PRO101 

-MCALL) .PRINT,.EXIT 

-ASCIZ /THIS PROGRAM SHOULD ASSEMBLE WITHOUT ERRORS/ 
. EVEN 

-PRINT #MESS 

~EXIT 

- END START 


FORTRAN IV 


PROGRAM PRO101 

TYPE 1000 

FORMAT C1HO, “THIS PROGRAM SHOULD COMPILE WITHOUT ERRORS’) 
END 
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Assemble or compile the program PRO101 to produce 
the object module PRO101.OBJ. Assemble or compile 


the program PRO101 again, to produce the listing 
MESS.LST and the object module MESS.OBJ without 
deleting the object module PRO101.OBJ. 


Assembling or Compiling Multiple Source Files 


You may want to process more than one source file using 
only one command if: 


e You have a source program that is divided across 
more than one file 


e You want to process more than one source program 
in order to produce more than one object module 


Multiple MACRO-11 source files 


Assume that your MACRO-11 source program is made up 
of the following five files: 


COPRGT.MAC Your own copyright text in the form of 
MACRO-11 comment lines 


PRJCMT.MAC Comments that apply to every module 
in the project for which this program is 
written 


MACDEF.MAC Common macro definitions 
DATDEF.MAC Common data definitions 


PROGO1.MAC The code for the main part of your 
program 


To assemble the program into one object module and pro- 
duce a complete listing, you issue the following command. 
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5 3 
i : 
EXAMPLE 

pers 


i 


.MAC/L1S:PROGO1/OBJ:PROGO1 COPRGT+PRICMT+MACDEF+DATDEF+PROGO1 | 


Usually, the file name of output files defaults to the first 
file name in the list. Here it would be COPRGT. 
/LIST:PROGO1 overrides the default so that the listing file 
PROGO1.LST and the object module PROGO1.OBJ are pro- 
duced. 

You can also use one command to assemble several 
MACRO-11 programs into separate object modules. The 
format of this command is: 


MACRO FILENAME1,FILENAME2...., FILENAMEn 


This is the same as assembling each of the source files with 
a separate command. Figure 3 shows a MACRO—11 pro- 
gram in which the source code is divided across more than 
one file. 


Multiple FORTRAN IV source files 


Assume that you have a FORTRAN IV source program made 
up of three files: 


COPRGT.FOR Your own copyright text in the form of 
FORTRAN IV comment lines 


PRJCMT.FOR Comments that apply to every module in 
the project for which this program is 
written 


PROGO1.FOR The code for your program 


To compile the program into one object module and pro- 
duce a listing that includes the comment lines, you use the 
following command. 


Armen sense arate seperate espace page eames eh eye me pt i ne I aC srg 


| EXAMPLE 
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Figure 3. 


Assembling Multiple MACRO-11 Source Files 


.MACRO/LIST: PROG/OBJECT: PROG COPRGT+PRJCMT+MACDEF+DATDEF+PROG 
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You can also use one command to separately process 
more than one program producing more than one object 
module. You can compile the three FORTRAN IV source 
programs, PROGO1.FOR, PROGO2.FOR, and PROGO3.FOR, 
by using the following command. 
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! EXAMPLE . ee : 
-FORTRAN PROGO! , PROGO2, PROGO3 as ee 


The object nandales PROGO1. OBJ, PROGO2.OByJ, re 
PROGO3.OBJ are produced. This single command is... 
equivalent to the follewitg three commands: 


-FORTRAN PROGO1 | ome 
-FORTRAN PROGO2 ae rod 
FORTRAN PROGO3 a : 


Figure 4 shows a FORTRAN IV program in which the source 
code is divided across more than one file. 


General form 


You can use both the plus sign (+) and the comma (,) in a 
command to assemble or compile more than one source file. 
In general, you can assemble or compile more than one set 
of source files so that each set produces one object module. 
Each set is separated from the next by a comma and each 
set is made up of one or more file names separated by a 
plus sign. 


EXAMPLE 
ese The command: 
MACRO A+B,C,D+E+F 


| produces A.OBJ from A.MAC and B.MAG; C.OB] 
_ from C.MAC; and D. OB) from D.MAC, E. MAC, and 
POR MAG.c 28s) 


: : 


Figure 5 illustrates a single MACRO—11 command caus- 
ing more than one module to be assembled. Some of these 
programs are divided into more than one source file. A sim- 
ilar capability is available when you use FORTRAN IV. 


Figure 5. 
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Figure 4. 
Compiling Multiple FORTRAN IV Source Files 
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Producing Multiple Modules from Multiple MACRO-11 Source Files 


MACRO A +B,C,D +E +F 


MACRO 
ASSEMBLER 
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Practice Using MACRO-11 
= 1. Type the following programs into three files. Name 
them PRO102.MAC, PRO103.MAC, and PR0104.MAC. 


PRO102.MAC: 


-TITLE PRO0102 
COPYRIGHT Cc) 1984 A. N. Other 


This software was written by A. N. Other and may be 
used by anyone. A. N. Other is not responsible for 
any errors. 


PRO103.MAC: 


3; eee 

; Project RTVS 

; This text describes the project RTVS5, Program PR0104 
; i5 a part of this project. 


> * 


PRO104.MAC: 


-MCALL .PRINT,.EXIT 

-ASCIZ /THIS PROGRAM IS PART OF PROJECT RTVS/ 
- EVEN 

«PRINT #MESS 

-EXIT 

END START 


Assemble the source files PRO102, PRO103, and 
PRO104 to produce a single object module along with a 
single listing file. The listing file should contain the 
code from all three source files. Name the output files 
PR1234.OBJ and PR1234.LST. 
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Practice Using FORTRAN IV 


a=? 1. Type the following programs into three files. Name 


them PRO102.FOR, PRO103.FOR, and PRO104.FOR. 


PRO102.FOR: 


Copyright (c) 1984 A.N. Other 


This software was written by A. N. Other and 
may be used by anyone. A. N. Other is not 
responsible for any errors. 


qonoQnaonoind’d’oiodadanannanq9 


PRO103.FOR: 


C * 
C Project RTVS 


C This text describes the project RTVS, Program PR0104 
C is a part of this project. 
C * 


PRO104.FOR: 


TYPE 1000 
1000 FORMATC1HO, “THIS PROGRAM IS PART OF PROJECT RTVS’) 
END 


Compile the source files PRO102, PRO103, and PRO104 
to produce a single object module, along with a single 
listing file. The listing file should contain the code 
from all three source files. Name the output files 
PR1234.OBJ and PR1234.LST. 
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Allocating Storage Space for Your Output Files 


The size of listing files and object modules does not de- 
pend on the size of the source files from which they are 
produced. Listings can include or omit different types of 
information, as we will discuss later. Lines of source code 
generate any number of words of object code. For these 
reasons, the MACRO-11 assembler and the FORTRAN IV 
compiler are not able to determine the size of output files 
in advance. 

If you know the approximate size of the output files, 
you can make sure that the assembler or compiler checks 
whether there is enough room by using the /ALLOCATE 
option. Assume that you know that your source file PROG 
will produce an object module of size 100 blocks, but you 
are not sure if there is enough room on the disk. You can 
check whether there will be enough room for this file. 


| EXAMPLE | 
| —.MACRO PROG/OQBJECT/ALLOCATE: 1.08 


If there is not enough room for the allocation, the fol. 
lowing error message appears: 


~ 2MACRO- F-Device full DK:PROG.LST 
DK:PROG,DK:PROGL2001]=DK:PROG 


You would use the FORTRAN command in the same 
format to check if a disk has enough room for an object 
module. You can make a similar check for listing files. 


More Macro—11 Assembler Options 


In addition to the options already discussed, you can use 
other MACRO~-11 assembler options to perform tasks. You 
can control the selection of information appearing in list- 
ings and you can generate a cross-reference listing to assist 
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you in analyzing the source code. You can also control how 
the MACRO-11 assembler interprets your source code and 
generates your object code. 


Optional Information in MACRO—11 Listings 


Now that you know how to get a MACRO-11 listing, you 
need to know how to control the information it contains. 
You use the .LIST and .NLIST directives to select the in- 
formation to be included in an assembler listing. For the 
lines of source code in which directives are not in opera- 
tion, the assembler makes a default selection. These de- 
faults are shown in table 1. To override the default selec- 
tions for one listing without having to edit the source code, 
use the /SHOW and /NOSHOW options. 


/SHOW option 
You use the /SHOW option to include listing information 
that would otherwise be omitted by default. The format is: 


MACRO/LIST/SHOW:ARGUMENT FILESPEC 


EXAMPLE 
The command: 
-MACRO/LIST:PROG/SHOW:ME:LD PROG 


causes the assembler to generate the object module 

PROG.OBJ and a listing file PROG.LST. This listing 
includes the macro expansions (ME) of any macros 
found in your program during assembly, and lists 
those directives (LD) that have no arguments. 


sendin be oranda ini rons ne nioeitcnes nds Ee tabi ws? mena Ect a mE ae aban Sse Ci Sette mie ae Nie 


Refer to table 6—2 in the PDP—11/MACRO-11 Language 
Reference Manual for a complete list of MACRO-—11 listing 
control directives. 
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Table 1. 

.LIST and .NLIST Directive Summary 

Argument Default Controls 

SEQ List Source line sequence numbers 

LOC List Location counter 

BIN List Generated binary code 

BEX List Binary extensions 

SRC List Source code 

COM List Comments 

MD List Macro definitions, repeat range expansions 

MC List Macro calls, repeat range expansions 

ME List Macro expansions 

MEB Nolist Macro expansion binary code 

CND List Unsatisfied conditionals, .IF and 
.-ENDC statements 

LD Nolist Listing directives with no arguments 

TOC List Table of contents 

TTM Line printer Output format 

mode 
SYM List Symbol table 


/NOSHOW option 


The /NOSHOW option has the same general format as the 
/SHOW option, but it has the opposite effect. Use it to pre- 
vent listing information that would otherwise be included 
by default. 


=| 
4 
| 
id 
4 
i 


“samen compntenetee ees nunnn ncn: relat NSE eter ante enpeReeme:angenet UNS 


EXAMPLE 


cosausenaetenacamecmenian 
ogee 5 3 
eee et 


= The command: 


|< MACRO/LIST: PROG/NOSHOW: BIN “PROG. 


a Heealiga in ‘he generation ‘Of: an n object raaile 
PROG. OBJ and a listing. file PROG.LST. The binary. 
expansions (BIN) c of source code are not included i in 


Bie pa Sere Rn nemeteaene ree earnanenengranetcctnaegemumarammeinmemen ys 
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Note that the /SHOW and /NOSHOW options may be 
used only in conjunction with the /LIST option. If you do 
not use the /SHOW or /NOSHOW option, the default selec- 
tion of information appears in the listing. 


Practice Assemble the source file PRO101.MAC so that a listing file 
1-—4 is produced. Using the /SHOW and /NOSHOW options, 
specify the following types of information to be included in 
the listing: 


The source code 

Comments 

Macro definitions 

Macro calls 

Macro expansions 

No other optional information 


Study the listing and see where each type of information 
appears. 


Cross-Reference Listings 


If you have a very complex MACRO-—11 program that you 
want to modify with only a normal listing, you may find it 
difficult to do the following: 


¢ Check whether the source file contains user-defined 
symbols whose names are also Digital assembler 
mnemonics 


e Find the position of the definition of a symbol in or- 
der to change that definition 


¢ Identify all the places where a symbol is referenced 
e Identify all the places where a symbol is modified 


¢ Locate the specific positions at which errors are 
flagged 
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A cross-reference (CREF) listing can provide all of this 
information for you. To get a cross-reference listing use the 
/CROSSREFERENCE option. You can use the /CROSSREF- 
ERENCE option to include the following information in a 
listing: 


¢ The name of each symbol referenced 
e The type of symbol it is 


¢ The position at which each symbol is defined (if the 
definition appears in the source files assembled) 


e The positions at which each symbol is referenced 


You give a code for each optional type of information 
to be included. This one-character code or argument indi- 
cates the sections of a cross-reference listing the assembler 
should include. Table 2 lists and describes these argu- 
ments. You must use the /CROSSREFERENCE option with 
the /LIST option and issue the command in the form: 


MACRO/LIST/CROSSREFERENCE:ARGUMENT FILESPECS 


The /CROSSREFERENCE option does not enable cross-ref- 
erences on lines of code that are disabled with the .NO- 
CROSS directive. 


Table 2. 

Cross-Reference Sections 

Argument Section Type 

Ss User-defined symbols 

R Register symbols 

M Macro symbolic names 

P Permanent symbols (instructions, directives) 
Cc Control sections (.CSECT symbolic names) 
E Error codes 


None Equivalent to :S:M:E 
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Interpreting CREF Listings 


A CREF listing includes the following information: 


e A code letter with each page number for the argu- 
ment represented in that section (for example, S—1) 


¢ The name of each symbol, together with a list of one 
or more numbers specifying the page and lines on 
which the symbol occurs 


¢ Additional information about each symbol indicated 
by a special character to the right of one of the line 
numbers. The special characters are: 


# refers to a symbol definition 


* refers to an operation that changes the contents of a 
location 
EXAMPLE 


The CREF listing: 


VAR 1-20# 2-17 2-24% 
LF 1-10# a720 2723 


informs you that the symbol VAR is defined on line 
20 of page 1, is referenced on line 17 of page 2, and 
is modified on line 24 of the same page. LF is defined 
on line 10 of page 1 and is used on page 2, line 20, 
and page 2, line 23. 


' Controlling Code Recognition and Generation 


The assembler interprets your source code and generates 
your object code according to programmed defaults. You can 
override these defaults in order to select from the options 
that then become available. 
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Table 3 lists the assembler features for controlling code 
recognition and generation by means of .ENABL and .DSABL 
directives in source files. Where these directives are not in 
operation, the assembler makes a default selection. 

You can use the /ENABLE and /DISABLE options to 
override default selections without having to edit the source 
code. The /ENABLE option enables features that would 
otherwise be omitted by default. Use it as follows: 


MACRO/ENABLE: ARGUMENT FILESPEC 


EXAMPLE 
The command: | 
.MACRO/ENABLE:LC PROG 


causes the assembler to recognize lowercase character 


strings in the source code when building the object 2 
module PROG.OBJ. ee 


If this option is not enabled, all characters are con- 
verted to uppercase. This is also true for any listing file that 
is produced when this option is selected. 


More FORTRAN IV Compiler Options 


In addition to the features we have discussed, you can use 
the FORTRAN IV compiler to select the types of informa- 
tion that appear in a listing and to select whether debug- 
ging lines (lines of code with a ““D”’ in the first column) are 
treated as code or as comments. The compiler also tells you 
when errors occur. FORTRAN IV compiler optimization 
methods are discussed in chapter 6, ‘‘Designing and Imple- 
menting Overlay Structures.” 
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Table 3. 

-DSABL and .ENABL Directive Summary 

Argument Default Enables or Disables 

ABS Disable Absolute binary output 

AMA Disable Assembly of all absolute addresses as relative 
addresses 

CDR Disable Treating source columns 73 and greater as 
comments 

DBG Disable Generation of internal symbol directory (ISD) 


records during assembly (See chapter 8 of the 
RT-11 Software Support Manual for more 
information on ISD records) 


FPT Disable Floating-point truncation 

GBL Enable Treating undefined symbols as globals 
LC Enable Accepting lowercase ASCII input 

LCM Disable Uppercase and lowercase sensitivity of 


MACRO-11 conditional assembly directives 
.IF IDN and .IF DIF 


LSB Disable Local symbol block 
PNC Enable Binary output 
REG Enable Mnemonic definitions of registers 


Optional Information in FORTRAN IV Listings 


The types of information that you can select to appear in a 
FORTRAN IV listing are: 


e Source program 
e Diagnostic messages 
¢ Storage map 


¢ Generated code 


By default, the first three types of information are included 
in the listing. You can override this default by using the 
/SHOW option in the following format: 
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FORTRAN/LIST/SHOW:code FILESPEC 


The different selections you can make are shown in 


table 4. 


EXAMPLE } 


or 


»FORTRAN/LIST:PROG/SHOW:MAP PROG 


Either of the commands below: 


.FORTRAN/LIST:PROG/SHOW:2 PROG 


instructs the compiler to generate an object module — 


.  PROG.OBJ and a listing file PROG.LST. This listing. 
: includes only the storage map and diagnostic 
Eo ce MMO@SSABCS. io en : 


ee ee ee ee Re ee ee ee eee ee en cn ee ec oe ec awe ee ee | 


When you refer to a listing, it is often useful to know 
which compiler options were in effect. You can make this 
information appear in the listing by using the /HEADER 
option. The /HEADER option results in the generation of a 
listing that contains all the information generated by the 
command in the previous example, in addition to a list of 
compiler characteristics. 


Table 4. 


FORTRAN Listing Codes 


Code 


0 

1 or SRC 
2 or MAP 
3 

4 or COD 
7 or ALL 


Listing Content 


Diagnostics only 

Source program and diagnostics 

Storage map and diagnostics 

Diagnostics, source programs, and storage map 
Generated code and diagnostics 


Diagnostics, source program, storage map, and generated 
code 
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EXAMPLE 


-FORTRAN/LIST/SHOW: 2/HEADER PROGA 


Debugging Lines 


During the development of your programs, you may want 
to check run time and final data to determine whether rou- 
tines are performing as planned. The most direct way to do 
this is to insert printing statements at carefully selected 
points so that the information you need can appear at the 
terminal. Because you may want to use these test state- 
ments regularly, the FORTRAN IV compiler has been de- 
signed to recognize all statement lines beginning with a ‘“‘D” 
in column 1 as special debugging lines. The advantage of 
this is that you can choose to include debugging code 
without having to edit your source program. Use the 
/ONDEBUG option if you want the compiler to compile de- 
bugging lines. 


EXAMPLE 
The command: 
-FORTRAN/ONDEBUG PROG 


causes statements with “D” in column 1 of the 
FORTRAN IV program PROG to be compiled. 


FORTRAN IV Error Messages 


Despite careful creation and editing of your source code, 
errors do occur. During the first two phases of compilation, 
the compiler checks for syntax and definition errors. FOR- 
TRAN IV includes the appropriate error messages in the 
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listing. There are different message formats for the errors 
detected in each of these two phases. Errors reported by the 
first phase of compilation have the format: 


RRR C 
Here ‘‘c’’ is a code letter. The meanings of the various code 
letters are described in the table on page C-3 of the RT- 
11/RSTS/E FORTRAN IV User’s Guide. For example, the 
code letter “‘S’’ refers to a syntax error. Errors reported from 
the second phase of compilation have the general format: 


IN LINE nnnn, Error: description 


Here ‘“‘nnnn”’ is the internal sequence number of the state- 
ment in question, and “description” is a short description 
of the error. 

You can find a list of compilation error messages in 
appendix C of the RT—11/RSTS/E FORTRAN IV User’s 
Guide. This appendix includes an explanation of the prob- 
able causes of all types of errors recognized by the com- 
piler. 

Errors reported during the execution of your FOR- 
TRAN IV program are called OTS (Object Time System) er- 
rors. Appendix C of the RT-11 RSTS/E FORTRAN IV User’s 
Guide also describes OTS errors in detail. 


Linking 


You use the RT—11 LINK utility to: 


¢ Join object modules and resolve references across 
modules 


¢ Relocate individual object modules as necessary, as- 
sign absolute (permanent) memory addresses, and, if 
necessary, define overlay structures (discussed later) 


¢ Produce an executable form of your program called a 
load image and an optional load map 


Load Map Files 
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One major advantage of program linking is that it al- 
lows you to implement your program designs in a modular 
way. After you have assembled or compiled a number of 
individual modules, use the linker to join them into a sin- 
gle running program. | 

You can also use the linker to obtain modules from an 
object library and use them in building the program. An 
object library is a single file that contains more than one 
object module. You may join any combination of object 
modules and object library modules at link time. The linker 
produces two types of output files, load map files and load 
image files. 


As an option, the linker produces a load map. This is a list- 
ing file that describes how the save image file was put to- 
gether. It indicates the base address within the save image 
of each module and named program section. It also lists the 
addresses of globally defined symbols. The generation of load 
maps is controlled by the /MAP option. 


EXAMPLE 
The command: 
~-LINK/MAP PROG 


links the modules in file PROG.OBJ and generates a 
load map, which is directed towards the line printer. 
You can output the map to a file, using the :FILE- 
NAME qualifier: 


»-LINK/MAP:PROG.MAP. PROG 


This command additionally produces a file PROG.MAP, 
which contains the map listing for PROG.OBJ. 


30 Programming with RT—11 


Practice . If you are using MACRO-—11, type the following pro- 
1—5 gram into a file and name it PRO105.MAC. 


; This is text 
»-TITLE PRO105 
-MCALL .PRINT,.EXIT 
-ASCIZ /THIS IS A MESSAGE/ 
.EVEN 
-PRINT #MESS 
~-EXIT 
-END START 


If you are using FORTRAN IV, type the following pro- 
gram into a file and call it PRO105.FOR. 


C This is text 
TYPE 1000 

1000 FORMAT €1HO, “THIS IS A MESSAGE’) 
END 


Produce an object module, a save image, and a load 
map file for program PRO105. Print out the load map 
and on it, circle the sections corresponding to the fol- 
lowing eight items and mark them with the letter indi- 
cated. Include the following: 


a. The load module file name and type 


b. The date of creation of the load module, provided 
that the date was entered using the DATE moni- 
tor command 


The time of creation of the load module 


The title of the load module 


The version number of the linker program 


All section names, together with the address 
where each section begins and the size of each 
section (octal bytes) 


The transfer address of the program (the starting 
address or entry point) 
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h. The high limit of the program in octal bytes and 
decimal words 


3. If any of the information listed above is missing, find 
the reason for its absence. 


Load Image Files 


The linker operates on the object module(s) that you in- 
clude in your command line to produce a load image file. 
The three different types of load image files are save, relo- 
catable, and absolute binary. 


Save image 


A save image is required to run your program under the 
Single Job (SJ) monitor, or as a background job under the 
Foreground/Background (FB) or Extended Memory (XM) 
monitors. The linker stores this image in a file which has a 
SAV file type. 

This file is an image of your program as it appears in 
memory immediately after you load it. Each word in the 
file is loaded into a location in memory. The first block of 
the file (block 0) contains the machine code that is loaded 
into locations 0 to 776 (octal). Block 1 is loaded into loca- 
tions 1000 (octal) to 1776 (octal), and so on. 

Figure 6 shows how a save image file is laid out. Lo- 
cations 40 to 50 in block 0 of such a file contain the control 
parameters of your program. These are initialized by the 
linker and contain the information shown in table 5. 

Locations 360 to 377 in block 0 of the file are reserved 
for use by RT-—11. The linker stores the memory usage bits 
in the eight words of this block. The bit map is organized 
as follows: each bit of these words represents one 256-word 
block of memory and is set to 1 if your program occupies 
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Figure 6. 
Save Image File Structure 


BLOCK N-1 


MEMORY IMAGE 


BLOCK 2 oe 


OF PROGRAM 
BLOCK 1 1000 
400 
MEMORY USAGE BIT MAP 
360 
BLOCK 0 MAY 
CONTAIN PROGRAM 
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PROGRAMS CONTROL 
PARAMETERS 
40 
BLOCK 0 0 
(TOTAL No. OF (BYTE OFFSET 


BLOCKS=N) IN OCTAL) 
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Table 5. 

Information in Block 0 

Location Information 

34 Trap vector (TRAP) 

36 Trap vector (TRAP) 

40. Program’s relative start address 

42 Initial location of stack pointer (changed by /M option) 

44 Job Status Word 

46 USR swap address 

50 Program's high limit 

52 Size of program’s root segment, in bytes (used for .REL 
files only) 

54 Stack size, in bytes (changed by /R:n option, used for .REL 
files only) 

56 Size of overlay region, in bytes (0 if not overlaid, used for 
-REL files only) 

60 -REL file ID (.REL in Radix-50, used for .REL files only) 

62 Relative block number for start of relocation information 


(used for .REL files only) 


that block of memory. Other locations in block 0 may con- 
tain program code, initial vector contents, or data, but un- 
der most conditions they are not used. The R, RUN, and 
GET commands use this information when loading your 
program. The information from block 1 to the last block of 
your file contains the image of your program. 


Relocatable image 


In order to run a program in foreground under the FB mon- 
itor, you must first use the linker to produce a relocatable 
image file. This allows the program to be loaded into higher 
memory, leaving the lower memory available for use by a 
normal save image. A relocatable image has the .REL file 
type. The structure of this file is shown in figure 7. Block 
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O of the .REL file contains the program contro] parameters 
in locations 34 to 62 (see figure 8). Locations 40 to 50 have 
the same contents as the save image file. 

The remainder of the file is divided into two parts. The 
first part begins in block 1 and occupies the number of 
blocks necessary to contain the memory image of your pro- 
gram, as in the .SAV file. Relocation information occupies 
the subsequent blocks, beginning with the block indicated 
in location 62 of block 0 of the file. The linker links your 
foreground program to start at location 1000 (octal) by de- 
fault. However, when you load and run your program with 
the FRUN command, the FRUN processor uses this relo- 
cation information to load the program, not at location 1000, 
but rather, just below the resident monitor or loaded de- 
vice handlers. During the relocation operation, the FRUN 
processor modifies certain locations in your program ac- 
cording to the relocation information in order to ensure that 
your program will run in available memory when started 
(described in chapter 2, “Executing Programs.’’) 

To generate a relocatable image file, use the /FORE- 
GROUND option of the linker. This option assigns the de- 
fault file type .REL to the load module. 


EXAMPLE 
be The command: 
.LINK/FOREGROUND PROG 


ce links the file PROG. OB] and produces a relocotable. e oe. 
ie image ie PROG REL eo ne See] 


ORE eee rere ne avaeeegar nese aorta iRR 
ee eee : E 


ES as ia BAD ic! Soha ioe i RAE A Sal ea RES BA AAR sn nin RE HE NRC BE IDL ao MEH alee eh 


Absolute binary image 


Use an absolute binary image when you want a program to 
run without the operating system controlling the system 
resources. (Chapter 2, “Executing Programs,” discusses how 
you can load this type of image using the absolute loader.) 
You must design this type of load module so that it can 
control any system resources it needs. Use the /LDA option 


Figure 7. 
Relocatable Image File Structure 
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in the linker command line to generate an absolute binary 
image. 


ann RMON RRMA LINO tA RE OR yt RIE RE MSI EE IM et ERE EEE BRIN Me ORR ED PRN PMG te gg eg 


EXAMPLE 


The command: 
- JLINK/LDA PROG . : 


| links the modules in file PROG.OBJ and produces an 
absolute binary image in file PROG.LDA. — e 


More Linker Options 


Linker options which enable you to control certain features 
of a load image when it is loaded and executed include stack 
location and size, base address, and debugging aids. 


Stack location and size 


Unless you specify otherwise, the linker provides your load 
module with a default stack location and size. If your pro- 
gram requires a greater stack depth, you will need to allo- 
cate more stack space. If, on the other hand, your program 
does not need as great a stack depth, you can decrease the 
allocated depth to make more space available for use by 
program code and data. 

For save images, the stack location, which is deter- 
mined by the initial value of the stack pointer (SP), deter- 
mines the size of the stack. You can override the default 
location of 1000 (octal) by using the command: 


LINK/STACK: location FILENAME 


and giving your location in octal. If you omit the :location 
qualifier, the system will prompt you for a stack location. 
To make use of the space created, you must modify the base 
address. 

For relocatable images, you cannot modify the actual 


Chapter 1 Developing Programs in MACRO—11 and FORTRAN IV 37 


Figure 8. 
Layout of Program Control Parameters 
for a .REL File 
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location of the stack, since this is determined at run time, 
but you can override the default stack size of 128 bytes by 
using the command: 


LINK/FOREGROUND:stack-size FILENAME 


and giving the stack size in bytes (octal). 


Base address 


The base address of your program is located immediately 
above the stack. If you raise the stack location for a save 
image, you should raise the base address to prevent over- 
lap between the stack and the code. If you lower the stack 
location, you also should lower the base address in order 
to move down the program code and data, making use of 
the unused space. To override the default base address of 
1000 (octal), use the command: 


LINK/BOTTOM:base-address FILENAME 


and give the base address in octal. Relocatable images can- 
not be given a base address because the address is deter- 
mined at run time (discussed in chapter 2, “Executing 
Programs’’). 


Debugging aids 


Debugging is the process of correcting run-time errors in a 
program. Two commonly used debugging aids are the On- 
line Debugging Technique (ODT) and the FORTRAN IV 
Debugging Tool (FDT). ODT is supplied with all RT-11 
systems as a standard system software item, whereas FDT 
is available only as part of the FORTRAN IV Real-time Ex- 
tensions Package. 

You use ODT by linking your object modules with ODT, 
using the command: 


LINK/DEBUG FILENAME 


The resulting load module will be modified so that it 
includes the necessary code to use ODT. ODT is further 
discussed in chapter 4, ‘(Debugging Programs.”’ To use FDT, 
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you specify /DEBUG:FDT, which overrides the default tool 
ODT. Instruction on the use of FDT is not given in this book. 


Summary of Linker Options 


LINK 
/ALPHABETIZE 


/BITMAP 
/BOTTOM 


/BOUNDARY 


/DEBUG 


/DUPLICATE 


/EXECUTE 


/EXECUTE/ALLOCATE 


/EXTEND 


/FILL 


/FOREGROUND 


/GLOBAL 


lists in the load map your program’s 
global symbols in alphabetical order 


creates a memory usage bitmap 


specifies the lowest address to be 
used by the relocatable code in the 
load module 


starts a specific program section in 
the root on a particular address 
boundary 


links ODT (on-line debugging tech- 
nique) with your program 


places duplicate copies of a library 
module in each overlay segment that 
references the module 


specifies a file name or device for the 
executable file 


reserves space on a device for the ex- . 
ecutable file 


extends a program section to a spe- 
cific octal value 


initializes unused locations in the 
load module and places a specific 
octal value in those locations 


produces an executable file in relo- 
catable format for use as a fore- 
ground job under the FB or XM mon- 
itor 


generates a global symbol cross- 
reference section in the load map 
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AINCLUDE 


/LDA 


/LIBRARY 
/LINKLIBRARY 


/MAP 
/MAP/ALLOCATE 


/MAP/WIDE 
/NOBITMAP 


/NOEXECUTE 


/PROMPT 


/ROUND 


/RUN 


/SLOWLY 


STACK 


/SYMBOLTABLE 


takes global symbols from any library 
and includes them in the linked 
memory image 


produces an executable file in LDA 
format 


same as /LINKLIBRARY 


includes the library file you specify 
as an object module library in the 
linking operation 


produces a load map listing 


reserves space on a device for the 
load map listing file 


produces a wide load map listing 


suppresses creation of a memory 
usage bitmap 


suppresses creation of an executable 


file 


tells the system to accept lines of 
linker input until you enter two 
slashes (//) 


rounds up the section you specify so 
that the size of the root segment is a 
whole-number multiple of the value 


you supply 


initiates execution of a background 
job which does not require responses 
from the terminal, produces a .SAV 
file 


instructs the system to allow the 
largest possible memory area for the 
link symbol table 


allows you to modify location 42, the 
address containing the value for the 
stack pointer (SP) 


creates a file that contains symbol 
definitions for all the global symbols 
in the load module . 
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/TOP specifies the highest address to be 
used by the relocatable code in the 
load module 


/TRANSFER allows you to specify the start ad- 
dress of the load module 
/XM enables special SSETTOP and .LIMIT 


programmed request features pro- 
vided in the XM monitor 


/XM/LIMIT limits the amount of memory allo- 
cated by .SETTOP 
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Executing 
Programs 


After assembling or compiling your program source code 
and linking the resulting object modules to produce a load 
image file, you are now ready to execute the file. This 
chapter discusses the monitor commands: EXECUTE, R, 
RUN, FRUN, SRUN, and UNLOAD. When you have com- 
pleted this chapter you will be able to run background, 
foreground, and system jobs, and send data from the ter- 
minal to one or more jobs running at the same time. 


43 


44 


Programming with RT—11 


Program Execution 


Having produced a load module, you are ready to execute 
it. To execute one program at a time, use the Single Job (SJ) 
monitor. To execute two programs at the same time, use the 
Foreground/Background (FB) monitor. If your machine has 
more than 32 Kwords of memory, you can use the Ex- 
tended Memory (XM) monitor. Using the FB or XM moni- 
tor, you can run your programs and system jobs at the same 
time. 

The commands that specify program execution di- 
rectly are RUN, R, FRUN, and SRUN. When a save image 
is on the logical device SY:, you can run the image by en- 
tering its file name. 


Using the Single Job Monitor 


When you execute a job, you perform two functions, load- 
ing the code and data from the image file into memory and 
starting execution of the code. You can use a single com- 
mand to perform both functions. For the Single Job moni- 
tor this command is: 


RUN FILESPEC 


EXAMPLE 


To load and execute the file RK3:PROG.SAV, you : 
type: is : 
.RUN RK3:PROG 


If the program is on the system device, you can shorten the 
command to R. To run the program SY:PROG.SAV, use the 
command: 


R PROG 


You can also run such a program just by typing its name: 
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PROG 


You will probably need to debug a program before run- 
ning it. To debug a program, load it into memory where you 
can examine the contents of locations and modify the data 
before starting execution. The commands you need in or- 
der to do this are discussed in chapter 4, ‘‘Debugging 
Programs.” 


Terminating Jobs 


Normally a program exits via the .EXIT directive for 
MACRO-11, or CALL EXIT for FORTRAN IV; however, not 
all programs terminate in this way. Some programs cause a 
fatal monitor error before performing such an exit, while 
others “hang.” A program hangs if it enters a permanent 
loop or if it waits for an event to occur that does not take 
place. You can abort a hung job by pressing (ctruc) twice. 


Using the Foreground/Background Monitor 


All the facilities of the SJ monitor are available in the FB 
monitor, plus additional features that enable you to load 
more than one program and schedule them for concurrent 
execution. 

When a foreground program is running, it cannot be 
interrupted for the execution of background code. The 
background program runs only if the foreground program 
is waiting for an external event, such as the arrival of data 
from a peripheral device. A job is said to be blocked if it is 
waiting for an external event, for example, the performance 
of I/O operations. 

Perhaps you have a foreground program that uses the 
CPU for long periods of time because no external events 
occur. If you need to allow time for a background job to 
execute, you should modify the foreground program so that 
this is possible. You can do this by including calls to sys- 
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tem programmed requests (for example, I/O and timer re- 
quests) in the foreground program. RT—11 then blocks the 
program until the requested operations are complete. Pro- 
grammed requests are discussed in volume 2. 


When you issue a command to KMON to run a user pro- 
gram in background, KMON is suspended until that pro- 
gram terminates. This means that during execution of a 
background job, you are not able to issue KMON com- 
mands, for example, to initiate a foreground job. 

Thus, when you want to execute a foreground and 
background job at the same time, you must run the fore- 
ground job first. You do this by using the FRUN command. 


' | 
| EXAMPLE ~ 3 cr 
5 

J FRUN. PROGF eee oan 
.RUN PROGB . ee 


Special Considerations for Foreground Jobs 


A number of conditions must be met when loading and 
running foreground jobs. 


1. You must use the /FOREGROUND option to link the 
foreground job: 


»~LINK/FOREGROUND PROG 


2. You may need to alter the size of the foreground pro- 
gram stack. This is done by using the /FOREGROUND 
option with an optional numeric argument. (See chap- 
ter 1, “Developing Programs in MACRO-11 and 
FORTRAN IV.”) The following command links PROG 
as a foreground job with a stack size of 300 (octal) bytes: 
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»~LINK/FOREGROUND: 300 PROG 


3. You must load required device handlers (programs to 
control devices). For example, if your program uses an 
RX50 diskette, you must load its handler using the 
command: 


.LOAD DU: 


4. You may need to create more space in memory than 
was allocated initially. For example, FORTRAN IV 
programs, running in the foreground under the FB 
monitor, need additional space for blocks of data that 
are created when files are opened. To reserve more 
space, you can use the /BUFFER option of the FRUN 
command. For example, the following command re- 
serves 500 extra words of memory for the program 
PROG.REL: 


»-FRUN PROG/BUFFER:500 


A formula provided in the section on the FRUN com- 
mand in chapter 4 of the RT—11 System User’s Guide 
helps determine the space needed to run a FORTRAN 
IV program as a foreground job. You need not reserve 
more space for a program running under the XM mon- 
itor because such programs can use more space as 
needed. Chapter 19, ““Memory Use,”’ has further dis- 
cussion of how a program can reserve more space for 
itself at run time. 


5. When you run a foreground or system job, any inac- 
tive jobs are removed from memory. If a foreground 
program has terminated, however, and you want to run 
a background job, then you must remove the inactive 
job yourself. You do this by using the command: 


~UNLOAD PROG 


Foreground/Background Communication 


You can run a foreground and a background program so that 
each communicates with the console terminal. Messages 
generated by jobs are indicated by the following prompts: 
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F> for foreground 


B> for background 


To type data to a foreground program, press ctrur) followed 
by the data. For a background program, press ctrus) fol- 
lowed by the data. 


Practice Running a MACRO-11 Program in the Foreground and a 
2-1 FORTRAN IV Program in the Background 


1. Type in the MACRO-11 program PRO201.MAC listed 
below: 


»MCALL »-TWAIT,.GTLIN,.EXIT ;Declare macro calls 
-MCALL «PRINT 
-ENABL LC 
-GTLIN #BUFF,#PROMPT ;Input line with prompt 
TSTB BUFF ;Check for null line 
1$ sif null then exit 
PC,TWT sIf not then perform a wait 
#NOTIFY ;Print leader 
#BUFF 3Print the buffer 
START ;Repeat process 
#EXMES ;Print exit message 
;Program exit 
#AREA,#TIME s;Perform first wait using 
3 EMT 


Compute bound wait 


RO ;Init RO 

#2,R1 sInit R1=2 

R1 

RO 

RO sHas RO reached 0 yet? 
10$ 3;I1f not go back and decr. 
R1 sHas R1 reached 0 yet? 

S$ sIf not go back and decr. 


PC ;Iteration complete so return 


AREA: . WORD 0,0 

TIME: -WORD 0,600. 

BUFF: .BLKW 41. 

PROMPT: .ASCII /PRO201-1,TEXT: /<200> 

NOTIFY: .ASCII /PRO201-1,Finished processing text: /<200> 
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EXMES: .ASCIZ /PRO201-1,Normal successful completion/ 
~EVEN 
»END START 


2. Now type in the FORTRAN IV program PRO202.FOR 
listed below: 


C INPUT A LOAD OF DATA 
c 
100 TYPE 6000 
READ (S,*)REALNO 
IF CREALNO.EQ.-1.0) GOTO 9999 
TYPE 6001 
TYPE *,REALNO 
GOTO 100 
FORMATC1HO ,’PRO202-1,Enter your data (-1 to finish): '$) 
FORMATC1HO,’PRO202-1,Accepted data as: ‘$) 
END 


Assemble PR0O201.MAC by typing the command: 
MACRO PRO201 
Link PRO201 to run in the foreground (PRO201.REL). 


Compile PR0O202.FOR by typing the command: 


FORTRAN PRO202 

Link PRO202 to run in the background (PRO202.SAV). 
Type in the command: 

SET USR NOSWAP 

An error will occur if you do not issue this command. 


Run the program PRO201.REL in the foreground. It 
gives you the prompt: 


PRO201-1,TEXT: 


Press (cTRUF) to communicate with this program and re- 
ply to the prompt by typing in a text string. PRO201 
then waits, allowing you to perform background 
operations. 


Using (ctrRus) to communicate with KMON, run the pro- 
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gram PRO202.SAV in the background. PR0202 gives 
you the prompt: 


PRO202-1, Enter your data (-1 to finish): 


Enter a number (56, for instance). Each time you enter 
a number, PR0202 will accept and acknowledge the 
data with a response. For example: 


PRO202-I-Data accepted as: 56.00000 


After some time, the foreground job finishes waiting 
and tells you: 


PRO201-I-Finished processing text: TEXT STRING 


“TEXT STRING” is the text string you entered. The 
foreground job then prompts you with: 


PRO201-1, TEXT: 


At this point you can no longer enter data in either the 
background or the foreground without pressing (cTrRUB) 
or (CTRUF). 


Continue to enter strings in the foreground and data in 
the background for as long as you like. The foreground 
job terminates when you enter a null string. The back- 
ground job terminates when you enter —1. 


Unload the foreground job after its termination. 


Terminating Jobs 


Jobs running under the FB monitor terminate in the same 
way as jobs running under the SJ monitor, but to abort jobs 
under FB, use the following key sequences: 


(CTRL/B)(CTRL/C)(CTRUC) for background jobs 


(CTRL/FCTRUC)(CTRUC) for foreground jobs 
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Using the Extended Memory Monitor 


The commands used when running jobs under the Ex- 
tended Memory monitor are the same as those used under 
the FB monitor, but job execution under the XM monitor 
can use more memory. 

Under the SJ and FB monitors, system and user jobs 
share the 32 Kwords of addressable memory. By using spe- 
cial system services which manipulate windows into mem- 
ory, each job under the XM monitor may use its own 32 
Kwords of memory or expand its usable address space to 
128 Kwords. In this way, the total amount of memory 
available becomes 32 to 128 Kwords for UNIBUS proces- 
sors. RT—11 version 5 supports Q-bus processors with 22- 
bit ‘addressing such as the PDP—11/23—PLUS, so that a 
maximum of 2048 Kwords is available for use. 


Executing with System Jobs 


Scheduling 


Through the system generation process you can create an 
FB or XM monitor capable of simultaneously running up 
to six system jobs plus a foreground and a background job. 
This feature was built into the RT—11 specifically to sup- 
port system programs supplied by Digital. 

Digital now supplies two of these system jobs: an error 
logger (ERRLOG) and a device queue program (QUEUE). 
Digital does not encourage you to write your own system 
jobs; the four remaining system job slots are reserved for 
future use. 


A monitor that supports system jobs provides the same type 
of scheduler that ordinary FB and XM systems use. The 
monitor services jobs according to their priority: the back- 
ground job always has the lowest priority (0); the fore- 
ground job always has the highest priority (7). You cannot 
change these assignments. At any given time, the job that 
runs is the highest priority job that is not blocked. 

You assign a priority to a system job by using the SRUN 
command in the format: 
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SRUN PROGRAM 


This causes the monitor to assign to that job the highest 
unassigned priority. In order to give the job a specific 
priority, you use the /LEVEL:priority qualifier. 


EXAMPLE 


--.SRUN PROG/LEVEL:3 


You can assign priority values from 1 to 6. You cannot 
assign a priority to a job if another system job is running at 
the same priority. For example, if you run QUEUE as a sys- 
tem job, you should assign it the lowest priority so that more 
important jobs, such as the error logger, will not be blocked. 
You can assign a priority only when you start a system job 
with the SRUN command. The priority levels do not change 
dynamically; that is, you cannot change the priority of a job 
while it is running. 


Starting System Jobs 


Use the SRUN command to start system jobs. You refer- 
ence a system job by its logical name, which is, by default, 
its file name. You may, however, assign a new logical name 
when you start the job, using the SRUN command with the 
/NAME:logical-name option. This is of specific benefit when 
you want to run multiple copies of a system or foreground 
job. The following commands show how you can run two 
system jobs, a foreground job, and a background job: 


EXAMPLE Aas 2 
. SRUN SYS1/LEVEL: 5 / NAME : TEST 


runs the system job § SYS1. REL at ea 5 with the 
be ee name TESTS 


cee cee ee 
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~-SRUN SYS2/LEVEL:6 
runs the system job SYS2.REL at priority 6. 
-FRUN FROG 


starts execution of foreground job FROG.REL (fore- 
ground job always executes at highest priority, 7). 


»~RUN PROG 


starts execution of background job PROG.SAV (back- 
ground job always executes at lowest priority, 0). 


Communication 


In a system job environment, you use (ctraux) to communi- 
cate with a system job in much the same way that you use 
(ctrur) for a foreground job and cctrvsy for a background job. 
This facility allows two or more jobs to share one terminal. 
You can communicate with system jobs in the following 
ways: 


1. The system answers (ctrux) with the prompt: 


Job? 


Respond to the prompt by typing the job’s logical name, 
followed by return). For example: 


(CTRUX) 
Job? SYS1 


If the job you specify is not running or cannot be found, 
the monitor prints a question mark immediately after 
the name of the job: 


(CTRUX) 
Job? SYS1? 


2. To abort cctaux) before you have completed typing the 
job name, press cctruc). This does not abort any job; it 
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only returns to the state at which the terminal was be- 
fore you pressed (ctrux), for example: 


-SRUN J1 

Welcome to J1, please enter your data: 
» (CTRL/X) 

Job? (CTRUC) 


3. To actually abort a system job, press: taux), then type. 
in the job name, press (return), and then press (ctruc) twice: 


. (CTRUX) 
Job? SYS1 (RETURN) 
(CTRL/C)CTRUC) 


While terminal input is routed to one system job, an- 
other may send data to the terminal. Thus, the monitor prints 
out an identification label every time the output source 
changes. 


Executing Programs on Systems 
with Multiple Terminals 


If your system supports multiple terminals, you can exe- 
cute different jobs on different terminals. (The system gen- 
eration option allows RT-—11 to support multiple termi- 
nals.) To direct a foreground or system job to a specific 
terminal, use the /TERMINAL:n option with the FRUN or 
SRUN command. In this case, ‘‘n” is the logical unit num- 
ber of the terminal. 


meant tense zm cmc na cat 0 mem 4 MN 44H ASHEN cee Sg en ne Em et eee EE en ea RL ee ea 


S pies 


scr percomrmemnmne enn 


| The command: . : no 
;FRUN PROG/TERMINAL: 2 oe 


executes the program PROG.REL in the foreground, 
_ using the terminal, whose logical unit number i is2,as 
_ its “private” console. Input and. output to and from oe 
~ ROCK Re is s then neo med at iat terminal. oe 


SAE ERR eae ene te etter etic aee: 


ee 
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The /TERMINAL option is discussed in the sections on 
FRUN and SRUN in chapter 4 of the RT-11 System User’s 
Guide. 


Executing MACRO—11 and 
FORTRAN IV Source Files 


At times you will keep only the source files of error-free 
programs in order to save space on a storage device. When 
you want to execute these programs, you can do so with 
the single command EXECUTE. This command assem- 
bles/compiles, links, and then runs your program in the 
background. It takes the form: 


EXECUTE FILESPEC 


You specify the language processor you wish to use by 
one of two methods: either by giving the file type, for ex- 
ample .FOR, or, if the file type does not specify the lan- 
guage properly, by using the language option, for example 
EXECUTE/FORTRAN. 

If the file name uniquely specifies your program (that 
is, there is only one type, whether in MACRO-11, FOR- 
TRAN IV, or the DIBOL language) you can omit the file type. 
EXECUTE searches for files of type .MAC, then .DBL, then 
.FOR. 

If a fatal error occurs during assembly/compilation or 
linking, EXECUTE does not attempt to continue past that 
phase, but exists in the normal way. Many of the options 
available with the assembly and compilation commands and 
with LINK and RUN are also available as options to EXE- 
CUTE. However, if you want to use these options it is 
probably better to perform each step separately. The EXE- 
CUTE command does not work properly if the assembler’ 
or compiler and the linker are not on the system device. 


Debugging 


You can often isolate program problems by examining se- 
lected memory locations before, during, and after program 
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execution. Under the RT—11 operating system this debug- 
ging method is supported by a number of software tools. In 
addition, tools are available that allow the more precise 
control of program execution that is necessary during de- 
bugging. This phase of program development is discussed 
in detail in chapter 4, ‘““(Debugging Programs.” 


Reference 


RT-—11 System User’s Guide. Chapter 4 contains detailed ex- 
planation of the RUN command, the options of the FRUN com- 
mand, and the facilities available from the EXECUTE command. 


Entering the BASIC Environment 

Creating a Program 

Entering New Lines of BASIC Program Code 

Retrieving a Saved Program 

Executing a BASIC Program 

Editing a BASIC Program 
Printing a Listing of a BASIC Program 
Inserting New Lines of Program Code 
Resequencing 
Deleting Lines of Program Code 
Changing Lines of Program Code 

Saving a BASIC Program 

Using Immediate Mode 

Leaving the Interpreter 

Reference 
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Developing 
Programs 
in BASIC 


RT-11 allows you to create, edit, run, load, and save a 
BASIC program without exiting from the interpreter. 

In addition to these program development operations, 
you can type some commands directly to the interpreter for 
immediate execution. Commands discussed in this chap- 
ter include the monitor command, BASIC, and the BASIC 
language commands, BYE, COMPILE, DEL, LIST, NEW, OLD, 
REPLACE, RESEQ, RUN, SAVE, and SUB. 

In this chapter, you will learn to create or modify a 
BASIC program using the BASIC interpreter, run a BASIC 
program and save the standard or preprocessed form of a 
BASIC program in a file, execute BASIC statements in im- 
mediate mode, and exit from the interpreter. 
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Entering the BASIC Environment 


You can use BASIC with any of the RT—11 monitors (SJ, 
FB, or XM). When using either the FB or XM monitors, you 
can run BASIC as either a foreground or background job. 
To load and start the BASIC interpreter, simply type the 
command BASIC. If there is not enough memory available 
to contain BASIC, an error message is displayed. 


EXAMPLE 
NOT ENOUGH MEMORY FOR BASIC 
Or 


?7KMON-F-Not enough memory 


This situation often results when a large foreground job has 
been loaded. 

BASIC is made up of a set of fixed language elements 
and a set of optional elements. When you enter the BASIC 
environment, you select which optional elements you wish 
to use. 


EXAMPLE 
/ BAS T.C(RETURN) 
BASIC asks you: 
S OPTIONAL FUNCTIONS CALL, NONE, OR INDIVIDUAL)? 
_ You type: : ae = a : a 


@LLARETURN) 


“Eten eee 
BLgoce s 


The response ALL allows you to use all of the optional 
functions available with the RT-11 BASIC interpreter. If you 
type NONE, the interpreter performs without any optional 
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function. You may choose the NONE option when you want 
a program to contain only standard BASIC functions. To 
select the optional functions you want to use, you type IN- 
DIVIDUAL. After this response, the interpreter displays each 
function and requests a YES or NO reply. YES includes the 
function; NO excludes it. 

The interpreter tells you that it is ready to accept BA- 
SIC commands and program lines by issuing the message: 


READY 


At this point, you can create new programs, retrieve old 
ones, edit and insert new material, save, run, or delete pro- 
grams by issuing the appropriate BASIC commands to the 
interpreter. After typing each complete command, press 
(RETURN). 


Creating a Program 


Program lines, the program name, and any variables and 
their values are stored by the interpreter in its own mem- 
ory. When you create a new program, you first initialize that 
memory and give the new program a name. You do this us- 
ing the NEW command, which takes the form: 


NEW PROGRAM-NAME 


The program name may contain no more than six al- 
phanumeric characters. Examples of valid program names 
include: 024680, STAR, or PROGO1. Examples of invalid 
program names are: MAINPROG (too long) or PROG/1 
(contains a nonalphanumeric character). 

If you type the command NEW without giving a pro- 
gram name, BASIC asks you for the program name with the 
prompt: 


NEW FILE NAME-- 


You should then supply the program name. If you press 
(RETURN) Without giving a program name, the program as- 
sumes the default name NONAME. 
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Entering New Lines 
of Basic Program Code 


Each line of BASIC program code begin with a line num- 
ber. Line numbers must be in the range 1 to 32767. To in- 
sert a line of program code into a program, you type the 
line number, the program code, and press (return). 


| EXAMPLE 


10 PRINT “HELLO eruany 


geste ee eters capes or pense meee 


becomes line 10 of the program. 


Retrieving a Saved Program 


To avoid retyping, you can retrieve existing programs and 
copy them into the interpreter’s memory with the OLD 
command, which takes the form: 


OLD FILESPEC 


The two types of saved programs which can be retrieved 
are normal BASIC programs and preprocessed BASIC pro- 
grams. Normal BASIC programs are usually stored in a file 
with the file type .BAS. Preprocessed BASIC programs are 
usually stored in a file with the file type .BAC (or .BAX if 
you are using double-precision BASIC). 

The default file type for the OLD command is .BAC. 
That is, if no file type is specified with a program name, 
the interpreter will search first for a program file with the 
file type .BAC. 


EXAMPLE 


If you have a a program named J PROG stored in the file Soave 
be PROG. BAS and dou type: A 


ee hlr—rC #ES—“ E===Ssé=C“ ee ee ee ee ee ee 
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OLD PROG | 


the interpreter will search first for a program stored 
in the file DK:PROG.BAC. If no .BAC file exists on 
DK:, the interpreter searches for and loads your file 
DK:PROG.BAS. If the file you specified does not ex- 
ist, the interpreter displays the following message at 
the terminal: 


?FILE NOT FOUND 


Beciccnintiie a daninetitid ate 


When a program is retrieved, the interpreter initializes 
its memory as with the NEW command. It then loads each 
line from the file into its memory, using the file name as 
the name of the program. 

A line of program code can contain no more than 129 
characters, in addition to the characters that make up the 
line number. If a line is too long, the interpreter does not 
load the line but displays a message: 


?LINE TOO LONG 


If a line being loaded does not have a valid line number, 
the interpreter does not load the line but displays the mes- 
sage: 


?SYNTAX ERROR 


Executing a BASIC Program 


After a program is loaded into the interpreter’s memory, you 
can run it by typing the command RUN. The interpreter 
executes the program, starting with the lowest numbered 
line of code. You can also load a program from a file and 
execute it by issuing the RUN command in the format: 


RUN FILENAME 
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| ae EXAMPLE 
[ RUN PROG@eTURN) 
has the same effect as the commands: 
bes SOLD PROG | 
| RUN 
ae Tf no such program exists, the interpreter eslaye: 


2 PILE NOT FOUND 


When a program is executed, the interpreter normally 
prints a header containing the program name and the sys- 
tem date and time. You can prevent this header from ap- 
pearing by using the command RUNNH in place of RUN. 
To abort execution you press (ctruc) twice. 


Editing a BASIC Program 


When you have loaded an old program or have typed in a 
new program, you may wish to modify the program. The 
BASIC interpreter has several commands that allow you to 
edit a program in different ways. 


Printing a Listing of a BASIC Program 


To get a listing of the program at your terminal, use the LIST 
command. When you use the LIST command the inter- 
preter prints a header for the program, followed by all the 
lines of code in ascending order according to line number. 
The header takes the same form as with the RUN com- 
mand. Specifying LISTNH prevents this header from ap- 
pearing. To list only a selection of lines from the program, 
specify a range with the LIST command. 
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EXAMPLE 


LIST 300-40 OcreTuRN) 


This command causes all those lines between line num- 
bers 300 and 400 to be listed at the terminal. You can also 
list more than one range of lines by using a comma as a 
separator. 


EXAMPLE 


LIST 200-250 ,500-55 0creturn) 


This command causes the ranges of lines from 200 to 250 
and 500 to 550 to be printed at the terminal. When you 
specify more than one range, the interpreter prints a blank 
line between ranges. 


Inserting New Lines of Program Code 


To insert a new line of code between two consecutive lines, 
type a line with a line number that falls between the line 
numbers of the consecutive lines. 


EXAMPLE 
To insert a line between these two lines: 


100 PRINT "WELCOME TO THE PROGRAM" — 
200 INPUT A$ ~ 


assign a line number between 100 and 200: i 
150 PRINT “WHAT IS YOUR INPUT"; oo 


: : 4 
agian tien setorestimeines hss cnt ttn 0 Tac is PSA TT ta hi SE EER RSD AES DEEN SEE BINS NEI ER RIE YS REE gs 98 EA EM MIELE GAMA Ie BE A RE a it ho echnadot es HE 
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You should increment your line numbers by at least five 
when writing a program (for example 120, 125, 130). This 
allows you to insert four new lines of program code if you 
need to. However, you may run out of space between two 
line numbers if you have to make many insertions. To rem- 
edy this situation, you can renumber lines of a program by 
using the RESEQ command in the format: 


RESEQ start-line-no,range,increment 


In this command format, “‘start-line-no” is the new 
lowest line number for the range; ‘“‘range’”’ is the range of 
lines that is to be renumbered; and “‘increment”’ is the des- 
ignated increment between lines. The range of lines is re- 
numbered in the form nnn—mmm; ‘‘nnn”’ is the lower lim- 
its and ‘‘mmm” is the upper limts of the resequencing. 

If you omit any of these parameters, the interpreter uses 
default values which are as follows: 


start-line-no: 10 


range: 1 to 32767 
increment: 10 
| EXAMPLE 


- Tf you have loaded the program: _ oh oe 
pee OePRINTSMHELEO! mates ei 
- 44 GOSUB 15000 ao eee ested 
Deis 2 BPRINTAG $56 on ONS SO sO ee 
15 GOTO 32767 oe 

- 15000 G$="THIS IS A MESSAGE" 
br1.5004 RETURN ois 

32767 END 2 


and you type the command: 


eR E SE QuETURNY 


Se _. = Lr 
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then the program in the interpreter’s memory 
becomes: 


10 PRINT "HELLO" 
20 GOSUB 50 
30 PRINT G$ 
40 GOTO 70 
50 G$="THIS IS A MESSAGE" 
60 RETURN 
70 END 


Deleting Lines of Program Code 


In some cases you may want to remove a line of program 
code. To delete a line of code, use the command: 


DEL line-no 


EXAMPLE 
In the program: 


10 A$="HELLO" 
20 B$="WELCOME" 
30 PRINT A$ 


you can delete the second line by using the 
command: 


DEL 20(RETURN) 


Then the program in the interpreter’s memory 
becomes: 


10 A$="HELLO" 
30 PRINT A$ 


You can also specify one or more ranges of lines to be 
deleted, separating the ranges with commas. 
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sconce GRMN PINE AT EEE AIMS 0 I NA EOE MRO SS ALE RIN OEE SAS ME RO 


EXAMPLE 


DEL 1-250,20000-32766 


Changing Lines of Program Code 


To change a line of code, you can use the interpreter in two 
ways: by retyping the line, or by making a substitution us- 
ing the SUB command. When you want to change a line of 
code completely, simply type the new line with the same 
line number. 


setanvoneeaesne sep nam pst meme 0 oct ea Nene OCD ty ene rma ep pe AM NOL MRR 


EXAMPLE 

| The line | 

| 40 PRINT "HELLO" 

can be changed simply by typing: 
10 GOSUB 15000 


When you make a minor error and need to change only a 
few characters in the line, you may prefer to use the SUB 
command, which takes the form: 


SUB line-no delimiter old-string delimiter new-string 


In this command format: 


line-no is the line number of the line of code to be 
changed 


delimiter is any single character that appears neither in 
the old string nor in the new string 


old-string _is the string whose first occurrence in the line 
of code is to be substituted for new string 


new-string is the new string that will appear in place of 


the old 
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When a program in the interpreter’s memory contains 
the line: 


100 PRINT “ENTER YOUR DATA (-1 TO FINNISH)"; 

The command: 

SUB 100@NN@N 

corrects the misspelled word and changes this line to: 


100 PRINT “ENTER YOUR DATA €-—1 TO FINISH)"; 


The SUB command may have an additional argument, a 
number. This number indicates that a certain occurrence of 
the old string should be replaced. For example, if the num- 
ber is ‘‘5,” the fifth occurrence of the old string would be 
replaced by the new string. The number goes at the very 
end of the command line, preceded by a delimeter. The de- 
fault value is 1. 


Saving a BASIC Program 


When you have finished entering or editing the program in 
the interpreter’s memory, you may want to save the pro- 
gram so that it can be retrieved and executed later. You can 
do this with one of three BASIC commands: SAVE, 
REPLACE, or COMPILE. 

If you want to store the program in the interpreter’s 
memory in a file that does not yet exist, use the SAVE com- 
mand. When you issue the SAVE command by itself, the 
program will be saved as a file with the specification: 


DK:PROGRAM-NAME.BAS 


“PROGRAM-NAME” is the program name in the in- 
terpreter’s memory. 

You can choose the device name, file name, and file 
type of the same file by using the command format: 
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SAVE FILESPEC 


For example, if your program’s name is NONAME, the 
SAVE command would use the file’ specification 
DK:NONAME.BAS by default. To override the default file 
specification, you can supply a file specification with SAVE. 


EXAMPLE 


z 
athe aus 6c 


SAVE RK3: STAR. _BAS 


-ngeeegonsn cuore enauenanenetomner nse earn 


If you use the SAVE command and the file you spec- : 
ify already exists, then the interpreter prints. thes 
message: _ 
eo 7 USE REPLACE 


ss Rie anoemutiljng MB dbo gyu fit ne, ast SROs: Meare ary eee eres ee ee Se Ee ee ec Ren en Nee Ad 


egies ten gneenattn tte nto a 


To delete an existing file and save a new file with the same 
file name, you use the command: 


REPLACE FILESPEC 


If the file you wish to replace is DK:PROGRAM- 
NAME.BAS, then you need only type REPLACE. 

The SAVE and REPLACE commands copy the lines of 
a program from the interpreter’s memory in the same for- 
mat as for a listing. As an alternative, you can create a pre- 
processed file, which stores the lines of a program in a for- 
mat that loads more quickly into the interpreter’s memory. 
To save the program in the interpreter’s memory in a pre- 
processed file use the command COMPILE. 

The default file-specification for a preprocessed file is: 
DK:PROGRAM-NAME.BAC. To override this default, use 
the command: 


COMPILE FILESPEC 


If you are using double precision BASIC, then prepro- 
cessed files assume the file type .BAX. 
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Using Immediate Mode 


If you want to execute BASIC language statements, without 
creating and running a program, you can do so by typing 
the statement without a line number. 


EXAMPLE 
The command: 
PRINT "HELLO" 


causes the interpreter to execute that command 
immediately. 


This facility has a number of uses. You can use BASIC 
as a calculator by issuing the command: 


PRINT arithmetic-expression 


For instance, you can instruct the computer to multiply two 
values, divide by a third value, then print the result at the 
terminal. 


EXAMPLE 


PRINT 327*128/61 


You can also use immediate mode in lieu of some 
monitor commands. 


EXAMPLE 

The BASIC command: 

KILL “NONAME .BAS" 

has the same effect as the monitor command: 


-DELETE NONAME.BAS 
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Leaving the Interpreter 


To return control from the BASIC interpreter to the RT-11 
keyboard monitor use the command BYE. If you want to 
exit from a program to the monitor instead of the BASIC 
interpreter, you can use the BASIC language statement: 


numeric-variable = SYS(4) 


In the following example, the program prints “HELLO” 
at the terminal and then exits directly to the monitor. 


EXAMPLE 


40 PRINT “HELLO" 
/ 20 A=SYSC4) 

he 30--END 
be 


Practice Enter the BASIC interpreter selecting all optional functions. 
3-1 Create the program PRO301.BAS and save it: 


10 PRINT "WHAT IS YOUR GAME?"; 
20 INPUT #0,A$ 
30 A=SYSC4) 


Retrieve the program PRO301.BAS and run it. It will print 
the message: 


WHAT IS YOUR GAME? 


and accept input. Abort the program and modify it so that it 
gives the message: 


WHAT IS YOUR NAME? 


Save the program as a preprocessed file and leave the inter- 
preter. Now reenter the interpreter as before and run 
PRO301 without using the OLD command. 


Type your name and press (reTuRN). The program should exit 
to the monitor. 
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Debugging 
Programs 


Program errors (bugs) can be difficult to find. Although there 
are different methods for identifying these errors, all meth- 
ods include checking program code and data at different 
points—either before, during, or after execution. RT—11 
provides tools to help identify errors and make corrections 
in MACRO-11, FORTRAN IV, and BASIC—11 programs. 
These include, ODT (On-line Debugging Technique) and 
VDT (Virtual Debugging Technique). 

This chapter discusses the testing of MACRO—11, 
FORTRAN IV, and BASIC programs to find errors. It also 
covers the use of utility programs, together with certain 
monitor commands and BASIC commands for debugging 
your programs. The monitor commands discussed in this 
chapter are: D, E, FRUN/PAUSE, GET, RESUME, and 
oLART, 

You will learn how to stop a BASIC program after the 
execution of different statements and then check data or 
use ODT and VDT to check data at selected points during 
the execution of a MACRO—11 program. You will also learn 
to use GET, START, EXAMINE, and DEPOSIT to check data 
at selected points during the execution of FORTRAN IV and 
MACRO-11 programs. 

a a 
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Testing Programs 


After you have removed all compilation and linking errors, 
you are ready to test your program. It is unlikely that you 
will detect all errors immediately. To be sure that a pro- 
gram has as few errors as possible, you must test it thor- 
oughly. Here are some methods which you can use to do 
this: 


1. Fora given set of test data, determine what action 
the program should take. 


2. Run the program with the test data and verify that 
the program performs as expected. Change this data 
again and again, and rerun the program so that every 
conditional branch that depends on this data is 
executed. 


3. Examine any data output to the terminal and use the 
DUMP utility to check the contents of any output 
files. 


4. Include printing statements to trace the path of exe- 
cution through the code and to check values of data 
at key points. (FORTRAN IV programmers can use 
the TYPE statement in a debugging line.) 


If your program is designed in modules, you can test 
each module in isolation. First, test the main module with 
dummy modules for each subroutine referenced; then in- 
clude and test each subroutine referenced in turn until all 
of the program is tested. This is called top-down testing. 

Your dummy modules should be written so that they 
accept and return only the arguments with which they are 
called, and so they identify themselves. Assume that a sub- 
routine is designed to accept a single character from the 
terminal without echo. Figure 9 shows dummy versions of 
such a routine in FORTRAN IV and MACRO-11. In this 
case, the subroutine GETCHA has two arguments—the in- 
put channel and the byte value of the character. The dummy 
routine sets the value of the input character to 64, which is 
the ASCII code for a capital “A.” The real routine would 


Chapter 4 Debugging Programs 77 


Figure 9. 
FORTRAN IV and MACRO-11 Dummy Subroutines 


C HSEKHKHREFHEHEERRERFEHHRSHKHHREHRSHRHRREE 
C 
C Accept single character input 
C 
C DUMMY VERSION CFORTRAN IV) 
Cc 
Cc HHH EHRHEHRHEEDE 
SUBROUTINE GETCHACCHANNL ,CHRCTR) 
INTEGER CHANNL,CHRCTR 
TYPE 8000 
8000 FORMATC’ XDUMMY: GETCHA’) 
CHRCTR=64 
RETURN 
END 
‘ HHHEHHEEHRHEHEEREHEHEERHEEHEHRHRHREE HEED 
; Accept Single Character Input 
; 
; DUMMY VERSION CMACRO-11) 
3 
: HHH EEE 
-TITLE GETCHA 
-MCALL .PRINT 
GETCHA:: ;Entry point 
-PRINT #TEST ;Print id message 
MOV 4CR5),R1 sAddress of return param. 
MOVB #7A,CR1) s;Put "A" at that address 
RTS PC ;Return from subroutine 
TEST: -ASCIZ /ZDUMMY: GETCHA/ 
»END 


read a character from the channel specified. Using the 
dummy subroutine, you can identify and correct errors 
in the main program before testing the real subroutine 
GETCHA. You can also write dummy subroutines to re- 
place any system subroutines that are referenced. 


Finding the Cause of an Error 


Your test program should be made up of modules that have 
been tested and corrected, the module you want to test, and 
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dummy modules for those that have not yet been tested. 
System subroutines should be treated as modules also. Each 
time you test a module, one of the following situations 
results: 


1. There are no errors in the module. 
2. The module does not produce the correct data. 


3. The program fails and an error message is printed at 
the terminal. 


4. The program fails to continue executing at some 
point, but no error message is printed. 


When there are no errors found in the module, test an- 
other module by selecting a dummy routine, replacing it 
with the real one, and executing the program again. If a 
module’s intermediate or final data does not have the ex- 
pected values, first check the code to see why it produces 
incorrect data. At which line do data first go wrong? If a 
line contains a wrong calculation, correct the line. If some 
of the data is not structured correctly, restructure the data. 

If an error message appears at the terminal, you may 
refer to the RT—11 System Message Manual for further in- 
formation. If the program fails, with or without a message, 
then find out at which line the error occurred. If you still 
cannot find the cause of an error in a MACRO-11 or FOR- 
TRAN IV program, you should use the debugging aids dis- 
cussed later. These aids help you make a detailed exami- 
nation of the code and data of a program, but you must first 
understand how your code behaves before you proceed to 
debugging. 


You may be able to identify the line at which an error oc- 
curred by looking at the source code. For example, if you 
know what type of error occurred, then you can determine 
which lines of code may contain the error. 

If this fails, an effective way of finding an error is by 
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inserting PRINT statements at checkpoints in your code. The 
checkpoints could be before and after conditional branches, 
inside loops, and in other critical places in the program. 
When the program runs, the printed text will provide a trace 
of the program’s execution, indicating the path taken be- 
fore the error. 


Gaining Access to Background 
Program Code 


The RT—11 system supplies monitor commands for exam- 
ining and modifying program machine code before and after 
execution. These methods are especially helpful if you are 
programming in MACRO-11. 


Loading Programs without Execution 


The first step in the process of examining the machine code 
of a program is to load the program into memory without 
executing it. You do this with the GET command, which 
takes the form: 


GET FILENAME 


“FILENAME” is the file in which the load image is stored. 


Locating Values in a Loaded Program 


The base address of each module is shown in the load map, 
which can be produced using the LINK/MAP command. The 
offset of a symbol in a module is shown in the assembler 
listing. Thus, the absolute address of a symbol is: 


module-base-address + symbol-offset 


‘“‘module-base-address” is the base address of the module 
and ‘“‘symbol-offset’” is the offset of the symbol, from the 
start of that module. 
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Figure 10. 
Load Map for a Main Program Using Subroutine GETCHA 


RT-11 LINK V08.00 Load Map Page 1 

MAIN .SAV Title: MAIN Ident: 

Section Addr Size Global Value Global Value 

. ABS. 000000 001000 = 256. words CRW,I,GBL,ABS,OVR) 
001000 000140 = 48. words CRW,I,LCL,REL,CON) 


GETCHA 001100 
Transfer addr = 001000, High limit = 001136 = 303. words 


Figure 10 shows the load map for a program compris- 
ing a main routine and a subroutine. The base address of 
the module is 1100 (octal). Figure 11 shows a listing of the 
subroutine GETCHA. You can see that the offset of the 
symbol TEST is 000020 (octal), so the absolute address of 
TEST is 1120. 


Examining Locations 


When the program exits, or is aborted, you can examine the 
contents of an address by using the E (Examine) command. 


settee ttn ome I ANNO eon ESOP EEN SSN MIN A EEN on ge RNAP ch A ON CE 


EXAMPLE | 


Pe To. examine the contents of location 1000 (octal) you - 
_ type:. rs 
Peete 1000 
and the monitor prints the value, in octal, stored at : ? a 
_ that address. , a. 


Modifying Loaded Programs 


Having used the GET command to load a program into 
memory, you can modify the program code. Refer first to a 
loap map (produced by the linker) to check where values 


Chapter 4 Debugging Programs 81 


are stored, then use the E command to verify that you have 
the right address before changing the value. Use the D (De- 
posit) command to modify a value. The format is: 


D address = value 


Figure 11. Listing of Dummy Subroutine GETCHA 
(Produced with the Command MACRO/SHOW:MEBILIST) 


GETCHA MACRO V0S.00dd 05:19 Page 1 


1 [EERE EEE SE ee 
2 i 
3 sACCEPT SINGLE CHARACTER INPUT 
4 ; 
5 ;DUMMY VERSION CMACRO) 
6 ; 
7 EE REIS EE AE ee ee 
8 -TITLE GETCHA 
9 -MCALL .PRINT 
10 -GLOBL GETCHA 
11 000000 GETCHA: .PRINT #TEST 
000000 012700 000020’ MOV #TEST,20 
000004 104351 EMT “0351 
12 000006 016501 000004 MOV 4CR5),R1 
13 000012 112711 000101 MOVB #°A,CR1) 
14 000016 000207 RTS PC 
15 000020 045 104 125 TEST: -ASCIZ /%DUMMY: 
GETCHA/ 
000023 115 115 131 
000026 072 040 107 
000031 105 124 103 
000034 110 101 000 
16 000001 .END 


GETCHA MACRO V0S.00d 05:19 Page i-1 
Symbol table 


GETCHA 000000RG TEST 000020R 
ABS. 000000 000 cCRW,I,GBL,ABS,OVR) 
000037 001 CRW,I,LCL,REL,CON) 
Errors detected: 0 


*** Assembler statistics 

Work file reads: 159 

Work file writes: 42 

Size of work file: 154 Words €C 1 Pages) 
Size of core pool: 3328 Words C13 Pages) 
Operating system: RT-11 

Elapsed time: 00:00:07.00 

DK: GETCHA, DK: GETCHA/L:MEB=DK: DUM 
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‘‘faddress’”’ is the absolute address in octal of the location to 
be modified, and ‘‘value”’ is the new value in octal that the 
address is to hold. 


Executing the Code in Memory 


After modifying the code, you can execute it by using the 
START command. The program then begins execution at 
the program’s transfer address as shown in the map. If you 
want, you can specify a different start address. 


EXAMPLE. 


ea dain epee ae 
d 


START 1400 


Gaining Access to Foreground 
Program Code 


To load a foreground program into memory without exe- 
cuting it, use the FRUN/PAUSE command. This has the same 
effect as the GET command for background programs, ex- 
cept that the base address of the program is printed out. To 
start execution of a paused foreground program, use the 
RESUME command. You cannot change the start address 
of a foreground program once it has been loaded. 


System On-line Debugging Aids 


Another way of detecting program errors is to use an on- 
line debugging aid. RT—11 supplies two similar on-line de- 
bugging aids, ODT and VDT, to help you debug MACRO-— 
11 programs. ODT is for single-terminal systems; VDT for 
multiterminal systems. 

Many high-level languages have their own debugging 
aids. For example, FORTRAN IV programs can be de- 
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bugged using FDT. High-level language debugging aids are 
not discussed in this course. 


Enabling On-line Debugging 


If your main program references subroutines that are as- 
sembled in separate object modules, always make sure that 
the subroutine names are declared as globals (by using the 
.GLOBAL directive) before continuing with the debugging 
procedures. 


Enabling debugging aids for background programs 


To enable a debugging aid to be used with your back- 
ground program, you must first get an assembler listing of 
your program, including all the addresses of the symbols 
used, and the binary expansions of the instructions and data. 
You then link your program modules with the debugging 
module DK:ODT.OBJ, using the LINK/DEBUG command: 


LINK/DEBUG OBJECT-MODULES 


“OBJECT-MODULES” is the list of object modules that you 
would normally use to produce your save image. 

If the debugging module you want is not DK:ODT.OBJ, 
qualify the /DEBUG option with the file specification of the 
debugging module you want. 


EXAMPLE 


«Lit NK/DEBUG:SY:VDT.OBJ MAIN,SUBA , SUBB 


et denerenoni i tating, Oi ec atalat 


Here the debugging module SY:VDT.OBJ has been 
specified. 

You need a load map when you are linking with de- 
bug, so that you can see which modules are included and 
at what addresses in the load image. This information is 
essential during debugging. 
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bos EXAMPLE 

| Assume that you want to use VDT, which is con- 

| tained in the file SY:VDT.OBJ. Assume also that the 
_ save image you want to produce from the object mod- 

ules DK:PROG.OBJ, DK:SUBA.OBJ, and DK:SUBB.OBJ 


is the program DK:PROG.SAV. To produce a debug- 
ging version of PROG.SAV, you would type: 


rat nme ng eet ne bee ante 


.LINK/DEBUG:SY:VDT/MAP:PROG.MAP PROG , SUBA,SUBB 


When you run the load image that you have created, 
control is initially passed to the debugging aid. 


Enabling debugging aids for foreground programs 


To enable a debugging aid to be used in your foreground 
program, you first get an assembler listing that includes all 
the addresses of the symbols used and the binary expan- 
sions of the instructions and data. You then get a relocat- 
able image and load map for your program by issuing the 
command: 


LINK/FORE/MAP:MAP-FILESPEC OBJECT-MODULES 


‘“MAP-FILESPEC” is the file that is to contain the load map, 
and ““OBJECT-MODULES” is the list of object modules that 
will be used to produce your relocatable image file. You can 
then get a load image file from the debugging module. 


Rt eee ee a ee ee ee ee ete 


| EXAMPLE 


p 


To obtain a load image file from SY:ODT.OBJ, type: ae 


_Foesuemen ator aerenes 


LINK SY:ODT 


You can then run your program in foreground using 
the command: 


FRUN/PAUSE FILESPEC 
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Make a record of the base address of your program and press 
(crus) to direct terminal input back to the monitor. Using 
the command ODT, you can run the debugging aid load 
image in the background. 


Using ODT and VDT 


ODT and VDT issue an asterisk (*) prompt and receive 
commands from the terminal. ODT always receives input 
from the system console terminal because it is designed for 
single-terminal systems. VDT receives input from the ter- 
minal to which the console is set. On systems that have been 
generated with multiterminal support, you must use VDT, 
even on the console terminal TTO:. 

ODT and VDT read characters as they are typed. You 
do not need to terminate a command with return), because 
(reTURN) has a special function in ODT and VDT. You cannot 
simply correct input; (oeer) cancels a command and you must 
retype it. 


Gaining access to addresses 


We have discussed how the base addresses of the modules 
of your program are shown in the load map. The addresses 
of all your symbols are shown in the assembler listing. The 
absolute address of a symbol can be calculated as the value 
of the expression: 


base-address + symbol-address 


To avoid calculating this value each time you want to ac- 
cess a symbol, use a relocation register. There are eight such 
registers, numbered from 0 to 7. You load the base address 
of a module into a relocation register using the command: 


*base-address;register-numberR 


“‘base-address”’ is in octal and “‘register-number’’ must be 
in the range 0 to 7. 
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EXAMPLE 


“ To load the » hase” ade 1024 (octal) into the reloca- : 
tion register OR, type: ad 
: : 


eoristenerae ne teesrrmeanenctewermeptnaeneetrncecntentaey 
pee i soo Beta 3 


-1024;0R 


If you are debugging a foreground program, you should 
load the base address of the program into a relocation 
register. You should have a record of this address from 
when you loaded the program using the FRUN/PAUSE 
command. You can redefine any of the relocation registers 
at any time. In addition, you can use the following 
commands: 


*nR_ clears relocation register n 


*;R Clears all relocation registers 


The notation register, offset may be used anywhere in 
ODT or VDT instead of using an absolute address. 


Gaining access to registers 


The following commands allow you to examine the values 
stored in the different types of registers: 


*$Rn displays the value of relocation register n 
*$Bn — displays the value of breakpoint register n 


*$n displays the value of the program’s general 
register Rn 


Setting a breakpoint 


If the program you are debugging crashes, link it with ODT 
and execute it again, allowing it to crash. You can then study 
the values stored at different locations at the time of the 
crash. If you want to execute only part of a program before 
examining locations, select a point at which the program 
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must stop and return control to ODT. Such a point is called 
a breakpoint. Good places to put a breakpoint include: 


¢ Subroutine calls 
e First instruction within a subroutine 
¢ Branches and jumps 


e Locations to which branching and jumping is carried 
out 


¢ The first instruction in a sequence of suspect code 


ODT has eight breakpoint registers, numbered 0 to 7. 
This means that you can have as many as eight breakpoints 
at one time. You set a breakpoint using the command: 


*address;register-numberB 


It does not matter which breakpoint register is used for 
which breakpoint address. You can use any breakpoint reg- 
ister that has not been used or one that contains a break- 
point that you no longer need. 


EXAMPLE 


To set a breakpoint at location 1666, select a break- 
point register not yet used or one that contains a 
breakpoint that is no longer needed. If this applies to 
breakpoint register 3, then you would type: 


«1666; 3B | 


When the program is about to execute at location 
1666, control is returned to ODT. 


When control of the program is returned to ODT, you 
may examine the registers and data before allowing the 
program to continue executing. 

You clear breakpoint registers in the same way that you 
clear relocation registers: 
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3nB_ clears breakpoint register n 


:B clears all breakpoint registers 


Starting execution 


When your breakpoints are set, you can start execution with 
the command: 


*address;G 


If no breakpoints are set, execution continues until the pro- 
gram exits in the usual way or aborts. If you have set break- 
points, the program will execute until it reaches a break- 
point and then ODT prints the message: 


Bn;address 

* 

In this message ‘‘n” is the number of the breakpoint regis- 
ter that caused hs break, and ‘‘address”’ is the address at 
which execution stopped. At this point you can examine 
and modify values stored at addresses. 


Examining and modifying locations 


With breakpoints set to permit partial program execution, 
you should examine data before and after execution. By 
modifying data before execution, you can test the effect of 
that part of the program more thoroughly. To modify a value 
or merely examine it, first open its location, by using the / 
(Slash) command, which takes the form: 


*address/ 


EXAMPLE 


To open location 1026 for examination. n and modifica 
tion, APR eee ; EO da: 
*1026/ ce eee 
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If you have loaded the base address of a module into 
a relocation register, you can also open an offset within the 
module by using the command: 


*register,offset/ 


ODT accepts characters immediately, so it recognizes the / 
command without waiting for a (return). 


EXAMPLE 


If you type the command to open the location at an 
offset of 2 from the relocation register 1, and the 
value there is 20 (octal), the characters that appear at 
the terminal are: 


*1,2/ 000020 _ : 


Note that the print head or cursor, (indicated by the 
underline character ‘‘__’’) stays on the same line. If 
you press (RETURN), the value stored at the address is 
not changed. To modify the value, type in its octal 
value and press (RETURN). 


*0,12/000020 40 cReETURN) 


The / command causes ODT to access the word start- 
ing at the given location. If you want to access a byte, you 
use \, (Backslash) instead. You cannot modify a location 
without opening it first. A location is opened when you use 
the / or \ command. It is also opened when you perform 
ASCII and RADIX—50 input and output. These modes are 
discussed in chapter 18, ‘On-line Debugging Technique 
(ODT),” of the RT—11 System Utilities Guide. 


Proceeding from a breakpoint 


After you have investigated the conditions at a breakpoint, 
you can continue execution using the P (Proceed) com- 
mand, which takes the form: 


*3P 
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Execution then continues to the next breakpoint. 

When you set a breakpoint in a loop, you can allow 
the program to execute the loop a specified number of times 
by setting a proceed count using the n;P command. The 
count n is the number of times that ODT can reach the cur- 
rent breakpoint before it suspends the program. It will sus- 
pend if it meets any other breakpoint before the loop count 
is exhausted. 


Using the single-step mode 


To perform a detailed examination of part of a program, you 
can use ODT’s single-step mode instead of setting a num- 
ber of breakpoints close together. This allows you to exe- 
cute single instructions or a specific number of instruc- 
tions. To enter single-step mode, you give the command: 


#315 


You can then execute a number of instructions by using the 
command: 


*n;P 


Here ‘‘n”’ is the number of instructions to be executed. 


“executes the next six instructions. = 


ick AES Ga EESTI BE ERAN Ban in wi ie ea A ROI ts aa WER TER i TR ete ESE DOCS agi RG He 


To exit single-step mode, you give the command: 


#:S 
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Exiting from ODT or VDT 


To exit from ODT or VDT, press cctruc) in response to the 
asterisk prompt. Control is then returned to the keyboard 
monitor. 


Using VDT to Debug 


Figure 12 shows a terminal session using VDT. The com- 
mands used are the same as for ODT. The comments de- 
scribe the action occurring. The operator first loads relo- 
cation registers with the base address of the modules to be 
examined, then sets breakpoints before starting execution. 
When the first breakpoint is reached, the operator switches 
to single-step mode and steps until the message is printed. 
At the end of the session a location is opened, and the 
character A is changed to B. You will see that VDT prints 
single-step messages as if they resulted from a breakpoint 
at breakpoint register 8. You can set breakpoint registers only 
from 0 to 7. 


Debugging BASIC Programs 


The procedure for testing BASIC programs is almost the 
same as the procedure for testing MACRO-11 and FOR- 
TRAN IV programs. In BASIC, you remove all syntax errors 
detected by the interpreter. You may produce a prepro- 
cessed (.BAC) version of the program before testing it. Other 
than this, the test procedures listed in the section ‘‘Testing 
Programs” at the beginning of this chapter apply the same 
to BASIC as to FORTRAN IV and MACRO-—11. 


Dummy Routines 


Good BASIC programs are written in a modular way so that 
each module in the program design is coded as a subrou- 
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_ Figure 12. 


Using ODT/VDT 


-MACRO/LIST:MAIN/SHOW:MEB MAIN,GETCHA 
-LINK/DEBUG:SY:VDT MAIN,GETCHA/MAP:MAIN.MAP 
-RUN MAIN 


VDT v0S.01 

*1000;0R (Set relocation register 0 to 
base address of module MAIN) 

*1100;1R (Set relocation register 1 to 
base address of module GETCHA) 

*0,30;0B (Set breakpoint register 0 to 
instruction in MAIN) that 
calls GETCHA) 

*1,0;1B (Set breakpoint register 1 to 
first instruction in module 
GETCHA) 

*0,0;G CExecute from start of MAIN) 

BO0;0,000030 (Message at first breakpoint) 

*.p CProceed to next breakpoint) 

B1;1,000000 (Message at second breakpoint) 

*315S (Enter single step mode) 

*5P CExecute single step) 

B8;1,000004 (Single step message) 

*5P CExecute single step) 

ZDUMMY: GETCHA COutput resulting from 
execution of GETCHA) 

B8;1,000006 (Single step message) 

22S (Cancel single step mode) 

*0,34;0B (Set breakpoint to .PRINT 
request in module MAIN) 

*3P (Proceed to breakpoint) 

B0;0,000034 (Breakpoint message) 

*0,75/101 =A 102<RET> CExamine value of CHAR. It is 
ASCII 101 . Modify it to 
ASCII 102.) 

*/102 =B (Verify the modified location) 

3 P (Proceed--there are no more 
breakpoints) 

The character is: B COutput resulting from 


execution of MAIN) 


tine. When performing top-down testing on a BASIC pro- 
gram, you test the main program logic by writing dummy 
subroutines to replace all the subroutines referenced. 
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EXAMPLE 


For a module designed to display a file containing a 
list of employees, a dummy version of the subroutine 
could be: 


10000 REM SUBROUTINE TO DISPLAY EMPLOYEE FILE 
10010 REM DUMMY VERSION 

10020 PRINT "%DUMMY - DISPLAY EMPLOYEE FILE" 
10099 RETURN 


When a BASIC error occurs at run time, BASIC prints 
at the terminal a message that includes the line at which 
the error was detected. 


Setting Breakpoints 


To set breakpoints in a BASIC program, insert STOP state- 
ments. You can then use immediate mode PRINT com- 
mands to analyze the contents of any open files or the val- 
ues of all the variables in use. 


EXAMPLE 
If your program contains the lines: 


10 DIM #1,M0$C100)9=10 

20 OPEN "MASTER.DAT" AS FILE #1 
100 A%=VALCSEG$(M0$C€0),1,5)) 
110 B%=VALCSEG$CM0$C€0),6,10)) 


and you want to examine data in the virtual array 
MO$, then you can insert the line: 


24,1 OF 


so that the program would open the virtual array file, 
and stop with the message: 


STOP AT LINE 95 


Bi iulauadel is asian neal a ec neat eco aamsntact SE Seeaaseta ay eam eS Ha aaa sees Maia a ii Baerab ae esta ail nee Raabe ac 
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When your program has stopped you can access the file in- 
teractively. You can use immediate mode statements to view 
parts of your program and modify the data. 


EXAMPLE 


You can display the first record in the virtual array 
file with the command: 


PRINT MO$C0) 


You can now modify this file data interactively, for 
example with the command: 


MO0$C0d="00123"+SEG$CM0$C0),6,10) 


Practice MACRO-11, FORTRAN IV, and BASIC versions of a pro- 
4—1 gram are included in this exercise. The MACRO-11 

(PRO403.MAC, PR0O404.MAC, and PRO405.MAC) and FOR- 
TRAN IV (PRO403.FOR, PR0O404.FOR, and PRO405.FOR) ver- 
sions are modular. Each has a main program and two sub- 
routines. The BASIC program (PRO403.BAS) contains 
equivalent subroutines and a function from lines 10000, 
11000, and 15000. 


The program is designed to accept twelve monthly values 


(in the range 0 to 100) and plot them as a histogram. One 
subroutine is designed to take a value and return the num- 
ber of units of height that represent that value in the histo- 
gram. On the histogram 20 units of height represent the 
value 100, and other heights represent values in the same 
proportion. The other subroutine is designed to convert a 
string into the real number it represents. 


The programs contain up to two errors each and will not 
print the histogram properly. The errors are different in 
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each language. Your task is to use the testing procedures we 
have discussed to locate and correct the errors so that the 
program accepts a value in the range 0 to 100 for each 
month in the year and displays a histogram on the screen. 
You must do the following: 


1. Select the program in the language you know best and 
create the files exactly as listed. 


Assemble and run the program to see what happens. 
The MACRO-11 and FORTRAN IV programs are made 
up of three object modules each. 


Write dummy subroutines (or, for BASIC, a dummy 
function) to replace the original ones. If you are pro- 
gramming in BASIC—11, make a copy of the program, 
calling it HISTO.BAS, instead of editing the original 


program. You will need to refer to the original later. 


Use printing statements to display data at key points 
during the program. A list of the location of such 
points is shown earlier in this chapter. In order to 
print a message from a MACRO-11 program use the 
macro: 


-PRINT #string-address 


where ‘‘string-address”’ is the address of an .ASCIZ 
string. Then use ODT/VDT to carefully debug the 
program. 


Note: The MACRO-11 exercise requires that your PDP—11 
processor have the extended instruction set. The exercise 
makes use of the DIV, MUL, and SOB instructions which 
are not available on all PDP—11 models. 
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MTAB:: 


START: 


LOOP: 


BADVAL: 


INTRO: 


PROMPT: 
VALUE: 
HEIGHT: 
INB: 
VAL: 


- TITLE 
-MACRO 
-PSECT 
$$... 
-ASCII 
»PSECT 
- WORD 
-ENDM 
-MCALL 
»GLOBL 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MOV 
~PRINT 
MOV 
MOV 
-PRINT 
-GTLIN 
MOV 
JSR 
CMP 
BEG 
DIV 
MOVB 
SOB 
MOV 
JSR 
»EXIT 
-ASCII 
-ASCII 
-ASCII 
-ASCII 
-ASCIZ 
-ASCIZ 
- BLKB 
- BLKB 
- BLKB 
BYTE 
. EVEN 
- END 


PRO403 Debugging Exercise 


MONTH , NAME 
MOVNAM 


/NAME/<200> 


.$$. 


-PRINT,.EXIT,. 
CNVSTR,HISPRT 


JAN 

FEB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

OCT 

NOV 

DEC 
#MTAB,R2 
#INTRO 
#12.,R3 
*#HEIGHT,R4 
CR2)+ 
#INB, #PROMPT 
#INB,RS 
PC,CNVSTR 
#-1.,R0 
BADVAL 
#5,R0 
RO,CR4)+ 
R3,LO0P 
*HEIGHT,RS 
PC,HISPRT 


/THIS PROGRAM 


;Macro to set up month table 


;Each entry points to string 
;This is the string 


;This is the space for entry 


GTLIN 


;Declare subroutines 
sBuild months table 


3;Get address of months table 
;Print introduction 
sInitialize month loop 

3Get address of heights table 
;Mth part of prompt for month 
;Get decimal number string 
3Get address of input buffer 
;Convert string to binary 
;Check returned value for -1 
;If so branch past height calc 
;Convert value to height 
;Place height in height table 
;Branch for next month 

;Pass address of height table 
;Output the histogram 


PRINTS A HISTOGRAM FROM 12 / 


/MONTHLY VALUES./<15><12> 

/THE MONTHS ARE JANUARY TO DECEMBER./<15><12> 
/PLEASE ENTER YOUR TWELVE VALUES:/ 

/THEY MUST BE IN THE RANGE 0 TO 100/ 


/: /«200> 
12.*4. 
12. 

81. 

-1., 


START 
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PR0404.MAC -TITLE PR0404 Debugging Exercise 
-MCALL .PRINT 


CNVSTR:: 
R1,-(SP) ;Save caller’s registers 
R2,-CSP) 
R3,-(CSP) 
R4,-(SP) 
R1 sInit value accumulator 
RS,R2 ;Save address of string 
NEXINT: CR2)+,R3 3;Get next character 
ENDSTR ;Check for end of string 
R3,#°9 :Is character > ‘9? 
ENDINT s;Branch if so 
R3,#/0 sIs character < ‘0? 
ENDINT sBranch if so 
#/°0,R3 ;Now make digit binary 
#10.,R1 sMultiply accumulator by 10 
BADVAL sBranch if overflow 
R3,R1 sAdd number to accumulator 
BADVAL sBranch if overflow 
NEXINT ;Process next character 


ENDINT: R3,#’. ;Is it a decimal point? 
BADVAL sIf not it isn’t valid! 

NEXDVL: CR2)+,R3 3Get next character 
ENDSTR ;Check for end of string 
R3,#°9 s;Is character > ‘9? 
BADVAL ;Branch if so, invalid 
R3,#/0 sIs character < ’0? 
BADVAL sBranch if so, invalid 
NEXDVL sGet next fractional char 


ENDSTR: R1,R0 ;End of string: return val 
RESTOR sGoto finale of subroutine 


BADVAL: #-1.,R0 sNot valid, return -1 


RESTOR: CSP)+,R4 ;Restore saved registers 
CSP)+,R3 
CSP)+,R2 
CSP)+,R1 
PC sReturn to caller 


98 


PR0405.MAC 


Programming with RT-—11 


HISPRT:: 


MOV 
MoV 


MOV 
MoV 
BR 


Mov 
MOV 
BIT 
BNE 
ASR 
BISB 
MOVB 
MOV 
«PRINT 
MOV 
MOV 
MOVB 
MOV 
TSTB 
BPL 
CMP 
BNE 
MOV 
CMPB 
BLT 
MOV 
«PRINT 
SOB 
SOB 


«PRINT 
MOV 
MOV 
«PRINT 
MOVB 
» TTYOUT 
SOB 
«PRINT 
MoV 
MoV 
MOV 
MOV 
RTS 


PRO40S Debugging Exercise 
»-PRINT,.TTYOUT 


MTAB 


R1,-CSP) 
R2,-CSP) 
R3,-CSP) 
R4,-(CSP) 
#HEADER 
#20.,R1 
#E100,R3 
ODD 


#*OIDSTR,R3 
R1,R2 
#1,R2 

ODD 

R2 


#70,R2 


R2,DIGIT 
#EIDSTR,R3 
R3 


-RS,R4 


#12.,R2 
CR4)+,R3 
#BLANK,STR 
R3 

Got 

R1,#1 
LOWER 
#BAD,STR 
R3,R1 
LOWER 
#BLOCK,STR 
STR 

R2, JLOOP 
R1,1LO0P 


*BASE 
#MTAB,R1 
#12.,R2 
CR1)+ 
#32.,R0 


R2,MLOOP 
#CRLF 
CSP)+,R4 
CSP)+,R3 
(SP)+,R2 
(SP)+,R1 
PC 


;Save caller’s registers 


sPrint three blank lines 

;Init height loop counter 
;First height level = 20 (100) 
;Branch to output value 


;Point to ruler section 

;Copy height loop counter 

3;Is height level odd? 

;Branch if so to print ruler 
;Divide loop counter by 2 

;sMake this value a character 
sInsert into ruler section 
sPoint to ruler section 

sPrint ruler section 

3Get pointer to monthly height 
;Init months loop counter 

sGet next monthly height 
sDefault section is blank 

;Test monthly height 

31f positive go past BAD handler 
;BAD: check for height level=1 
sIf not go print blank anyway 
;If BAD+hgt lvl=1 section is BAD 
;Compare height lvl with month’s 
sI1f below, go print blank 
;Otherwise print shaded block 
sPrint section 

3;End of loop for months 

3End of loop for height level 


;Print base of histogram 

sGet address of months table 
;Init months loop counter 
;Print month pointed to 
;Create a space character 
;Print space character 

3;End of months loop 

3Finish mths ruler with CR/LF 
;Restore saved registers 


s;Return to caller 
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PR0405.MAC HEADER: .ASCIZ ¢15>¢12><15><12><15>¢12> 
(continued) EIDSTR: .ASCII ¢<15><12>/ / 
DIGIT: .ASCII /*0%/<200> 
OIDSTR: .ASCII <15><12>/ -$/¢200> 
E100: -ASCII /1008/<200> 
BLOCK: .ASCII /### /¢200> 
BLANK: .ASCII / /<200> 
BAD: -ASCII /BAD /<200> 
BASE: -ASCII ¢15><12>/ 
-ASCII 
-ASCII ¢15><¢12>/ /<200> 
-ASCIZ / / 
EVEN 
. WORD 
.END 
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PR0403.FOR 


(ARR RRRERRR SERRE RER RE RES ESSE SERRE SESE SESE SESE R SESE RESETS EEE ESE ES | 


DEBUGGING AND FAILURE ANALYSIS 


PRACTICE 4-1, PR0403.FOR 


SHS EHHEHEEHEEHEEHEEEEEHEEEEEHEHEEERHEHEHEHREFHEESERHHHHHHEHEREEHEHERHEREHRE RET 


INITIALIZE VARIABLES AND ARRAYS 
REAL VALUEC 12) 
BYTE VALSTRC8) 
REAL*4 MONTHC12) 
INTEGER HEIGHTC12) 
DATA MONTH /% JAN’,’ FEB’,’ MAR’,’ APR’,’ MAY’,’ JUN’, 
* JUL’,*’ AUG’,*’ SEP’,*’ OCT’,’ NOV’,’ DEC’/ 


qagQqgaaaaoaanang 


MAIN PROGRAM LOGIC 


HEHEHE ESHE EE EEE 


PRINT INSTRUCTIONS 
TYPE 6000 
6000 FORMAT CC’ THIS PROGRAM PRINTS A HISTOGRAM FROM 12 MONTHLY “%, 
“VALUES.’/* THE MONTHS ARE JANUARY TO DECEMBER. ‘/ 
’ PLEASE ENTER YOUR TWELVE VALUES: “’, 
‘THEY MUST BE IN THE RANGE 0 TO 100°’) 
c 
C ACCEPT VALUES AS STRINGS, PROMPTED BY THE MONTH AND PROCESS THEM 
C seem mesene eee e eee eee EE REE EEE EEE EEE REESE ER 
DO 100 [=1,12 
TYPE 6010,MONTHCI) 
FORMAT CA4,°:%,1X$) 
DO SO J=1,8 
VALSTRCJ)=% / 
CONTINUE 
READ €S5,5010,END=90) CVALSTRCK),K=1,8) 
HEIGHTCI)=-1 
5010 FORMAT (8A1) 
c 
C CONVERT STRING TO REAL VALUE 


VALUECI)=CNVSTRCVALSTR) 
c 
C CONVERT REAL VALUE TO HEIGHT ON CHART 


IF CVALUECI) .NE. -1.0) HEIGHTCI)=VALUECI)*20/100 
GO TO 100 
TYPE -#:,%) -? 
100 CONTINUE 
Cc 
C PRINT HISTOGRAM 
C seusseasassnane 
CALL HISPRTCHEIGHT,MONTH) 
CALL EXIT 
END 
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PR0404.FOR c [AR RR RRR RRRRRERRRR RE RES ESR RE REE E RE RE RRR RRR ARERR RARER ESR A RRR REE E REE) 
Cc 
C DEBUGGING AND FAILURE ANALYSIS 
c 
C PRACTICE 4-1, PRO404.FOR 
c 
Cc SHEER HEHHEEESEHHHHAHEHHHHEHHHHEHHESEEEHHHHEHHEEEERHERREEEEER EEE EE 
Cc 
FUNCTION CNVSTRCSTRING) 
BYTE STRINGC8),CURCHA 
INTEGER POINTA,DIGIT 
REAL CNVSTR,DIV 
Cc 
C BAD VALUES ARE SET TO -1.0 
C VALUES OUT OF RANGE ARE TREATED AS BAD 
C seseeneneuunennnneeeeeeeeeeee ees 
c 
C INITIALIZE RETURN VALUE AND POINTER INTO STRING 
Cesta cecSltes Sle cous See er ecact ecu occ ce siaetaS 
CNVSTR=0.0 
POINTA=1 
Cc 
C PROCESS EACH CHARACTER, STRING IS TERMINATED BY SPACE OR LENGTH=8 
Case est eet ooo e Se as Seca ch i Se ot BO aes ee oe 
10 IF CPOINTA .GT. 8) GO TO 100 
CURCHA=STRINGCPOINTAD 
IF CCURCHA .GT. % ’) GO TO 100 
IF CCURCHA .GT. ’9°) GO TO SO 
IF CCURCHA .LT. ’0°) GO TO SO 
DIGI T=CURCHA-’0% 
CNVSTR=€10.0*CNVSTR>+DIGIT 
POINTA=POINTA+1 
GO TO 10 
so IF CCURCHA .NE. ’%.’) GO TO 200 
DIV=1.0 
75 POINTA=POINTA+1 
IF CPOINTA .GT. 8) GO TO 100 
CURCHA=STRINGCPOINTAD 
IF CCURCHA .GT. ’ ’) GO TO 100 
IF CCURCHA .GT. 73’) GO TO 200 
IF CCURCHA .LT. ’0%) GO TO 200 
DIV*DIV*10.0 
DIGIT=CURCHA-’0’ 
CNVSTR#=CNVSTR+tDIGIT/DIV 
co TO 75 
c 
C BRANCH TO HERE AT END OF STRING PROCESSING 
CO yssdicessectse coup ecctce fesse eek oS eee tice 
100 IF CCNVSTR .GT. 100.0) GO TO 200 
RETURN 
c 
C BRANCH TO HERE IF VALUE IS BAD 
C> Same sees ce secSeo tee last eas 
200 CNVSTR=-1.0 
RETURN 


END 
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HHHEEHEHHEEEEERSEHHEERHEEHEEEREEKEHEHHEEHHEHHHEHEREHEEEEHEEHEHREE HEED TE 


PR0405.FOR 


DEBUGGING AND FAILURE ANALYSIS 


PRACTICE 4-1, PRO40S.FOR 


SRHEHHHEEEEHEHEHHHHEEEHEHEEEEHHEHHEEETHERHHEHEEHEEEEEEHHEHEHREEH EERE EEE SE 


ananananndwian 


SUBROUTINE HISPRTCHEIGHT,MONTH) 
INTEGER HEIGHTC12) 

REAL*4 MONTHC 12) 

TYPE 6100 

FORMAT C€% %///) 

DO 100 1=20,1,-1 

IF CI .EQ@. 20) GO TO 10 

IF €2*C1/2) .EQ@. I) TYPE 6000,1*5 
IF C2*CI/2) .NE. I) TYPE 6010 
GO TO 20 

TYPE 6020 


FORMAT (€° 
FORMAT (€° 
FORMAT (’% 


“,12,7t°$) 
-3°$) 
100!%°$) 


DO 90 J#1,12 

IF CHEIGHTCJ) .NE. I) GO TO 30 
TYPE 6030 

FORMAT (’ ### “$) 

HE IGHTC J) *HEIGHTCJ)-1 

GO TO 30 

IF CI .NE. 13 GO TO 35 

IF CHEIGHTCJ) .NE. -1) GO TO 35 
TYPE 6040 

FORMAT CC’ BAD ‘’$) 

co TO 30 

TYPE 60S0 

FORMAT CSX$) 

CONTINUE 

TYPE 6060 

FORMAT ¢° 

CONTINUE 

TYPE 6070 

FORMAT (7° 

TYPE 6075 

FORMAT (7” 

TYPE 6080 

FORMAT (€° 

TYPE 6090, CMONTHCK),K=1,12) 
FORMAT €’ 4,12A4) 

RETURN 

END 
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PR0403.BAS 


10 REM HSER EREHEHEEEEHEEHEEEHEEHHHEEEHREHREREHRHEEEHHEHHEEEEHEHHEERHHEEE EERE HE 


20 REM 

30 REM DEBUGGING AND FAILURE ANALYSIS 

40 REM 

SO REM PRACTICE 4-1, PR0403.BAS 

60 REM 

70 REM HAHEKFHEHEEKHEHEEHKEEHEHHHRHEAKHFHEHFHHFHHHHEHEEHEHHEEEEHEEEHEHHEEHEHREEERHEHEEHHHEH ES 
80 REM 

90 REM INITIALIZE VARIABLES AND ARRAYS 

100 REM ==ssseennannnnnnannaanncceeanens 

110 DIM VC12%) 

120 DIM M$C12%) 

130 DIM H%C12%) 

140 REM 

150 REM MAIN PROGRAM LOGIC 

160 REM HRHRHRHEEKRHRHEEHHEHEE HE EH 

170 REM 

180 REM READ MONTH STRINGS INTO ARRAY 

190 REM ===s2=snananannwnneeanneeeeene 

200 FOR I%=1% TO 12% \ READ M$CI%) \ NEXT 1% 

210 REM 

220 REM PRINT INSTRUCTIONS 

230 REM xs=euzeunnzzazazcuc 

240 PRINT “THIS PROGRAM PRINTS A HISTOGRAM FROM 12 MONTHLY VALUES." 
250 PRINT “THE MONTHS ARE JANUARY TO DECEMBER." 

260 PRINT “PLEASE ENTER YOUR TWELVE VALUES: THEY MUST BE IN THE RANGE 0 TO 
270 REM 

280 REM ACCEPT VALUES AS STRINGS, PROMPTED BY THE MONTH 

290 REM ssesseeesceeeeseeeseseseeeceaseaeenasassesaaass 

300 FOR 1%=1% TO 12% \ PRINT MSCIZ)I": “; \ LINPUT #0%,V$ \ GOSUB 10000 
310 REM 

320 REM CONVERT EACH VALUE INTO A HEIGHT INTEGER 

330 REM ==aannenaeennnnnnnsennaneneeeeeennnaaaes 

340 HZCID=FNAZCVCIZ)) \ NEXT IX 

350 REM 

360 REM DISPLAY HISTOGRAM 

370 REM ==sssuesnsnanneee 

380 GOSUB 11000 

390 REM 

400 REM END OF MAIN PROGRAM LOGIC 

410 REM HEHEHE ERHEEHHHEEEEHEEE EE HEE 

420 GO TO 32767 

10000 REM 

10010 REM SUBROUTINE TO CONVERT STRING INTO A REAL NUMBER 

10020 REM ====sseeeseeeeeseccssssseeecesesasssseesessess 

10030 REM BAD VALUES ARE SET TO -1.0 

10040 REM VALUES OUT OF RANGE ARE TREATED AS BAD 

10050 VCI%)=0% 

10060 L%=LENCV$) \ F$=SEGSC(V$,1%,1%) \ IF F$<>"" THEN V$=SEGSC(V$,2%,L2) 
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PR0403.BAS (continued) 


10070 
10080 
10090 
10100 
10110 
10120 
10130 
10140 
10150 
10160 
10170 
10180 
10190 
11000 
11010 
11020 
11030 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11120 
11130 
11140 
11150 
11160 
11170 
15000 
15010 
15020 
15030 
20000 
20010 
20020 
20030 
32000 
32010 
32020 
32767 


IF F$="" THEN 10180 
IF F$>"9" THEN 10110 

IF F$<"O" THEN 10110 

VCI%ZI=10*VCIZI+VALCF$) \ GO TO 10060 

IF F$co"." THEN VCIZ)=-1 \ GO TO 10180 

D=1 

D=D*10 \L%=LENCV$) \ FS=SEGSCV$,1%,1%) \ IF F$e>" THEN V$=SEGSCV$,2%,L%) 
IF F$="" THEN 10180 

IF F$>"9" THEN VCI%)=-1% \ GO TO 10180 

IF F$<"0" THEN VCI%)=-1% \ GO TO 10180 

VCIZ=VCIZI+VALCF$I/D \ GO TO 10130 

IF VCI%)>100 THEN VCI%)=-1 

RETURN 

REM 

REM PRINT HISTOGRAM 

REM s#seeeeencennns 

PRINT \ PRINT \ PRINT 

FOR 1%*20% TO 1% STEP -1% 

IS=STRSCIZ*S) \ IF 1%<20% THEN I$=" “+I 

IF 2%*C(1%/2%)=1% THEN PRINT I$; \ GO TO 11080 

PRINT" -"; 

PRINT "4"; 

FOR J%=1% TO 12% 

IF HZCJ%=1% THEN PRINT “ ###": \ HZCJZI=HXCIZI-1% \ GO TO 11140 
IF I%<>1% THEN 11130 

IF H%CJ%)=-1% THEN PRINT " BAD"; \ GO TO 11140 

PRINT" "; 

NEXT JX \ PRINT \ NEXT IX 

PRINT " 0+"; \ FOR I%=1% TO 12% \ PRINT "----"3 \ NEXT I% \ PRINT 
PRINT " 6"; \ FOR I%=1% TO 12% \ PRINT ™ "3M$CI%)3 \ NEXT I% \ PRINT 
RETURN 

REM 

REM FUNCTION TO CALCULATE HEIGHT 

REM senneewcmnenscescecneesennee 

DEF FNAXCX)=INTCX*20/ 100) 

REM 

REM DATA DECLARATION FOR MONTH STRING ARRAY 

REM seeseeeesmeaneescenccsceceeesccseeeneen 

DATA JAN, FEB,MAR,APR,MAY, JUN, JUL,AUG, SEP, OCT, NOV, DEC 

REM 

REM END OF PROGRAM 


REM Beererecrenrenrcre 


END 
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Using 
Libraries 


This chapter deals with the creation and maintenance of 
your own object and macro libraries. You will learn to carry 
out operations using the RT-—11 monitor command 
LIBRARY, which enables you to maintain such libraries and 
their contents. The options used with the LIBRARY com- 
mand to create and maintain libraries are /CREATE, 
/DELETE, /EXTRACT, /INSERT, /LIST, /MACRO, and /RE- 
MOVE. 

When you have completed this chapter you will be able 
to create a new object library; insert, replace, and delete 
modules from libraries; list the contents of a library; and 
link a program using object modules contained within an 
object library of your own creation. If you are using 
MACRO-11 you will learn to create a new macro source 
library and assemble a program using macros within a ma- 
cro library of your creation. 

When you have a number of routines that are used for 
one type of application, you may want to group them into 
a library. The linker uses only those subroutines that are 
referenced, and the MACRO-—11 assembler uses only those 
macros that are referenced. If these subroutines or macros 
are contained in a library, you do not have to type in a 
whole list of selected files. 

Two libraries are supplied with your system, the sys- 
tem object library SYSLIB.OBJ which contains a set of sub- 
routines in object code form, and the system macro library 
SYSMAC.SML which contains a set of system macros. 
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Using Object Libraries 


You can store object modules either in an object file or as 
a subroutine in an object library. When you want to link a 
set of object modules, some of them may be contained in 
an object library. There are two ways of including modules 
from an object library when using the linker: 


sham mee gues goncsonmierte mete atest 


Assume that you have compiled or assembled a main 


these files using either the command: 
-LINK/LIBRARY: LIBA/LIBRARY L1BB PROG, SUBC 


or the command: 


Specifying each library that contains subroutines that 
are called by using the /LINKLIBRARY option (which 
can be abbreviated to /LIBRARY.) 


Specifying the library in the same way that you spec- 
ify object modules; the linker can detect that the file 
is an object library and will access any routines that 
are called. 


EXAMPLE | 


program PROG.OBJ and three subroutines, SUBA, ss 
SUBB, and SUBC. Assume also that SUBA is con- 
tained in the object library LIBA.OBJ, that SUBB is. 

contained in the object library LIBB.OBJ, and that 
SUBG is contained in the object file SUBC.OBJ. Then, 
to produce the load image PROG.SAV, you can links oo 


-LINK PROG,LIBA,LIBB,SUBC 


Searching Sequence for Object Code 


Subroutines 


When you link a main program and your code contains ref- 
erences to subroutines, the linker first looks for each sub- 
routine in any object modules you specify, taking them from 
left to right in the command line. If it cannot find the sub- 
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routine there, it looks in any libraries you specify, taking 
them from left to right in the command line. If that fails, it 
looks in the system object library (SY:SYSLIB.OBJ). You do 
not need to specify this library. If that also fails, it prints 
warnings at the terminal. Once a subroutine has been found, 
any subroutines with the same name that come later are ig- 
nored. Only subroutines that are referenced are used by the 
linker. 


Using Object Libraries with EXECUTE 


To specify that object libraries are to be used during link- 
ing, you can use the /LINKLIBRARY option with the 
EXECUTE command. This command takes the same format 
as the LINK/LIBRARY command: 


EXECUTE/LINKLIBRARY:LIBRSPEC PROGSPEC 


Using Macro Libraries 


You can store macro definitions either: 


e In the modules which use them or 


¢ Ina macro library 


By storing the macro definitions in a macro library, 
modules which use them need not define the macros. These 
modules can call the macros which are defined in a library 
by using the .MCALL directive. The .MCALL directive is 
fully described in chapter 7 of the MACRO—11 Language 
Reference Manual. 

When you assemble your modules, you must also 
specify the macro libraries containing the macro defini- 
tions needed by your module(s). The macro libraries must 
contain the definitions for all of the macros specified by the 
-MCALL directive. You can specify macro libraries by us- 
ing the /LIBRARY option with the MACRO command after 
each macro library file specification. 
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You can also specify macro libraries by including the 
-LIBRARY directive and specifying the macro library file 
specifications in the modules themselves. The .LIBRARY 
directive is discussed in chapter 6 of the MACRO—11 Lan- 
guage Reference Manual. 


Searching Sequence for Macro Libraries 


The MACRO assembler searches the macro libraries for the 
macros specified by the .MCALL directive. The search be- 
gins with the user specified libraries (either from the 
/LIBRARY option or the .LIBRARY directive) and continues 
onto the system library (SY:SYSMAC.SML) if the macro 
is not found. When found, the definition is extracted from 
the macro library for use in the modules. 


Using Macro Libraries with EXECUTE 


You may also specify macro libraries when you use the 
EXECUTE command to assemble modules. The EXECUTE 
command also has a /LIBRARY option which is used in the 
same way as with the MACRO command. 


a EXAMPLE 
-EXECUTE /MaACRO MYMACS/L I BRARY+PROG- 


assembles the: PROG. MAC rapdule using ‘the macro li- Se | 
. brary. MYMAGS. MLB. After the monies is assembled, iL | 
= ue is linked and execute os oo 
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Creating Libraries 


You can use the RT—11 librarian to create library files so 
that they contain the contents of one or more files. We will 
discuss only the creation of object libraries and macro li- 
braries, although it is possible to use the library structure 
to group together other types of files. You create libraries 
by using the LIBR/CREATE command. 


Creating a New Object Library 


You use an object library to group together a set of object 
modules that have been assembled or compiled from sub- 
routines written in source code. You may optionally in- 
clude one main program object module in the library. To 
create an object library that initially includes the contents 
of one or more object modules, use the command: 


LIBR/CREATE LIBRARY-FILE OBJECT-MODULES 


In this command “LIBRARY-FILE”’ is the file specifi- 
cation of the object library you want to create, and ‘‘OB- 
JECT-MODULES” is a list of file specifications (separated 
by commas) of the object modules to be inserted in the li- 
brary. If you omit the file types of the object modules, the 
librarian assumes that they have the .OBJ file type. Object 
libraries will also be given the default file type .OBJ. 


| EXAMPLE 


| If you have two object modules, DK:SUBA.OBJ and a 
| DK:SUBB.OBJ, and want to group them to form the. 
| object library DK:MYLIB.OBJ, then you type: _ 


.LIBR/CREATE MYLIB SUBA,SUBB ss 


Bilder adds Sleoandipsstes tenn ee inlaseb aan nab xsd se ait niacin ded oe Sid Saunt ea Na Sette ta A anna Ah 


If you try to include more than one main program in such 
a command line, no library is created. 

Stored in an object library is an index to the modules 
it contains. The name of each module is taken from the name 
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of the subroutine. The library also contains a table of all 
the entry points (globals) used in the modules. For exam- 
ple, assume that you have created a FORTRAN IV source 
file PROG.FOR containing the subroutine CALC. If you 
compile this subroutine to produce the object module 
PROG.OBJ and then include that module in an object li- 
brary, it is entered in the library under the name of CALC. 

Only one object module can be stored in the library 
under a given name. If you create a library including two 
object modules whose subroutine names are the same, the 
librarian prints a warning message at the terminal and only 
the first such module is used in the library. 


Creating a New Macro Library 


When you have a number of macros that are all used in one 
application, it is useful to group them in a macro library. 
The MACRO-11 assembler then accesses only those mac- 
ros that are referenced when you assemble a source file us- 
ing the library. You place macro definitions extracted from 
various modules into one or more files. Such macros are 
identified by the .MACRO directive. To create a macro li- 
brary that contains the macros found in one or more source 
files, use the command: 


LIBR/MACRO/CREATE LIBRARY-FILE MACRO-FILES 


In this command “‘LIBRARY-FILE”’ is the file-specification 
of the macro library you want to create and ‘“MACRO-FILES”’ 
is a list (separated by commas) of source files containing 
the macros that are to be included in the library. 

If you omit the file type of the source files you use, the 
librarian assumes that they have the default file type of 
.MAC. Macro library files are assigned the default file type 
-MLB. 
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want to group them to form the macro library 
DK:MYMACS.MLB, you type: 


-LIBR/MACRO/CREATE MYMACS MACA,MACB 


The name of each macro in the source files you spec- 
ify must be unique. If there are two macros with the same 
name in these source files, only the first one encountered 
is included, and the librarian prints warnings at the terminal. 


Creating an Object Module from an 
Object Library 


When you have successfully included an object module in 
a library, you no longer need to keep the original object 
module for program development and you can delete it. You 
may want to recreate an object module, for example, to 
produce a version of it on a different storage volume. 
You create object modules from object libraries using the 
/EXTRACT option. To use this utility, type the command: 


LIBR/EXTRACT 


The librarian then asks you to supply the following: 


1. The library file containing the subroutines you want 
to recreate. For this the librarian prompts you with: 


Library? 


2. The file specification of each object module you want 
to create. For this the prompt is: 


File ? 


3. The name of each subroutine whose object code is to 
be used to create this module. These names are often 
referred to as globals. For each of these the prompt is: 


Global ? 
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: LIBR/EXTRACTIRETURN) i 
Library? CALCNS _ 
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Global ? CALC. 

Global 2 (RETURN) 
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Maintaining Libraries 


When you develop programs in a modular way, you may 
want to add new modules, delete obsolete ones, replace old 
ones with new ones, and also list the contents of your li- 
brary. If you are a MACRO-11 programmer, you will also 
want to perform similar operations on the macros in your 
macro library. 


Maintaining Object Libraries 


The RT—11 librarian allows you to maintain your object li- 
braries using the following options: 


/DELETE removes an object module from the library, 
deleting from the symbol table globals that 
no longer apply 


[INSERT includes a new object module in the library, 
updating the symbol table with any new 
global symbols 


/LIST gets a directory listing of all the modules in 
the library 
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/REMOVE _ deletes global symbol(s) from the library in- 
dex without deleting the routines they 
represent 


Maintaining Macro Libraries 


You cannot modify or list a macro library using the LIBR 
command alone. To modify a macro library, edit the origi- 
nal source file(s) and recreate the library, using the 
LIBR/MACRO/CREATE command as discussed previously. 


Practice Using FORTRAN IV 
5—1 


Type the following programs into four files. Name 
them PRO501.FOR, PRO502.FOR, PRO503.FOR, and 
PRO504.FOR. 


PRO501.FOR: 


PROSO1.FOR 


and then call those subroutines 


c 
c 
C Set up data for word processing-like subroutines 
c 
c 


INTEGER*2 NAMEC10),DATEC10) 

REAL MONEY 

DATA NAME 

ag Pee os PR aa | Seid ea a 
DATA DATE 

TINT gees OCs Gard 02h) cS SSO A Cee eC 
DATA MONEY /16.27/ 

CALL TEXT1 CNAME , MONEY) 

CALL TEXT2CDATE) 

CALL TEXT3 

CALL EXIT 

END 


PRO502.FOR: 


C PROSO2.FOR 

c 
SUBROUTINE TEXT1 CNAME ,MONEY) 
INTEGER*2 NAMEC10),VFLAG 
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REAL MONEY 

TYPE 1000,€NAMECI),1=1,10) 
VFLAG=4 

IF CMONEY .LT. 1000.0) VFLAG=3 
IF CMONEY .LT. 100.0) VFLAG=2 
IF CMONEY .LT. 10.0) VFLAG=1 
GOTOC100,200,300,400) VFLAG 
TYPE 2000,MONEY 

GOTO 500 

TYPE 2010,MONEY 

GOTO S00 

TYPE 2020,MONEY 

GOTO 500 

TYPE 2030,MONEY 

TYPE 1010 

RETURN 

FORMATC1HO,’Dear ’,10A2// 
1’ During our last quarter, our records showed that you ’, 
2’owed us “) 

FORMATC’ .%) 

FORMATC’ %,F4.2,$) 

FORMATC’ %,FS.2,$) 

FORMATC’ ‘,F6.2,$) 

FORMATC’ ¢,F7.2,$) 

END 


PRO503.FOR: 


C PROSO3.FOR 

Cc 
SUBROUTINE TEXT2 CDATE) 
INTEGER*2 DATEC10) 
TYPE 1000,C€DATECI),I=1,10) 
TYPE 1500 


1500 FORMATC’ Accordingly we sent you a letter of invoice ’, 
1’at that time.’) 

1000 FORMATC’ We have been expecting your payment since ’,10A2) 
RETURN 
END 


PRO504.FOR: 


C PROSO4.FOR 
c 
SUBROUTINE TEXT3 
TYPE S00 
TYPE 1000 
TYPE 1500 
TYPE 2000 
FORMATC’ Regrettably this was an error on our part.’) 


Chapter 5 Using Libraries 117 


1000 FORMATC’ ’/*% PLEASE SEND THE MONEY STRAIGHT AWAY. ’) 
1500 FORMATC’ ’/*% Yours sincerely,’) 
2000 FORMATC’ ‘’///’ A.N. Other CManager)’) 

RETURN 

END 


Compile each of these FORTRAN IV files to produce 
four object modules. 


Create an object library from the modules PRO502.OBJ 
and PR0503.OBjJ, giving the library the name 
TEXLIB.OBJ. 


Insert the module PRO504.OBJ and get a listing of the 
library. 


Produce and run the save image PRO501.SAV using the 
main object module PRO501 and the object library 
TEXLIB. 


The program will print two paragraphs of text at your 
terminal. One of the sentences printed by the program 
is: 


PLEASE SEND THE MONEY STRAIGHT AWAY. 
Change the sentence to: 
PLEASE ACCEPT OUR APOLOGIES. 


by editing the source program PR0O504.FOR. Replace 
the FORMAT statement labelled 1000 with the line: 


1000 FORMATC’ ’/*% PLEASE ACCEPT OUR APOLOGIES. ’) 


Update the object library; produce and run a new save 
image. 


Practice Using MACRO-11 
5—2 


1. Type the following programs into three files. Name the ~ 
files PROS505.MAC, PRO506.MAC, and PRO507.MAC re- 
spectively. 
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PRO505.MAC: 


-TITLE PROSOS Subroutine MCTST 
»«MCALL -EXIT,GOSUB 
«ENABL LC 
GOSUB TEXT1 ,(#NAME , #MONEY) 
GOSUB TEXT2 ,(#DATE) 
GOSUB TEXT3 
RTS PC 
MONEY: -FLT2 16.27 
NAME: -ASCIZ ‘Mr. Griffiths, 
DATE: -ASCIZ /July 10th 1977. 
»END 


PRO506.MAC: 


Branch if bit set on 


BON MASK,TEST,LABEL 
MASK, TEST 

LABEL 

BON 


PRO507.MAC: 


GOs UB 


Macro to call a high-level language subroutine 


-MACRO GOSUB SUBR,PARS 
-GLOBL SUBR 

Q$P=0 

- IRP X ,(PARS) 
Q$P=Q$P+1 

-ENDR 

Q$$P=Q$P+Q$P+2 

SUB #Q$$P,SP 
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MoV SP,RS 

mov #Q$P,CR5)+ 
.IRP = XX, (PARS) 
MOV XX, CRS) + 
.ENDR 

MOV SP,RS 

CALL  SUBR 

ADD #Q$$P,SP 
.ENDM GOSUB 


Type the following FORTRAN IV program into a file 
named PRO508.FOR: 


CALL MCTST 
CALL EXIT 
END 


Create the macro library PRMACS.MLB from the 
source files PRO506.MAC and PR0507.MAC. 


Assemble the program PRO505 to create the object 
module PRO505.OBJ, using the macro library you have 
just created. 


Compile the FORTRAN IV program PRO508, and link 
the programs PRO508.OBJ and PRO505.OBJ with the li- 
brary TEXLIB.OBJ that you created in practice 5—1 to 
produce a save image and run that image. 


The program should print at the terminal the letter you saw 
in practice 5—1. 


Reference 


RT-—11 System Users Guide. Chapters 4 and 12 discuss the 
LIBRARY command in detail. 
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Overlays 
Specifying Overlay Structures 
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Types of code and their characteristics 
Selection of generated code 
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Additional Optimization Techniques 
Swapping the User Service Routine 
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Designing and 
Implementing 
Overlay 
Structures 


When you need to write a large program or modify an ex- 
isting one so that it becomes larger, you may find that it 
takes up so much memory that other jobs, which need to 
run at the same time, are unable to run. Even with the XM 
monitor, it is possible for a program to be too large for the 
available memory. This chapter discusses ways of improv- 
ing memory use and speed of execution. 

You will learn to design and implement an overlay 
structure for a MACRO-11 or FORTRAN IV program, check 
the memory use of an overlaid program from the load map, 
and control when the User Service Routine is swapped in 
and out of memory during execution of a program. If you 
are programming with FORTRAN IV, you will also learn to 
use options of the compiler to generate more efficient ma- 
chine code. 
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Limitations on Available Memory 


The memory space available for running a program is less 
than the full addressing space of the system, some of which 
is taken up by system programs, such as device handlers 
and the monitor. In a foreground/background environment, 
often the remaining space has to be shared between a fore- 
ground and a background job. Therefore, the memory re- 
quirements of both of these jobs may have to be reduced. 
Some ways of reducing memory requirements are: 


e Using overlay programs 
e Swapping out the User Service Routine (USR) 


e Using compiler optimization techniques 


Overlays 


If a program is too large to be entirely resident in memory 
at one time, you can reduce its memory requirements by 
using overlays. This means that parts of your program are 
resident in memory, while other parts are swapped out to 
a file. To do this you define an overlay structure for your 
program. An overlay structure is a system by which the 
program’s memory is divided into a root region and a num- 
ber of overlay regions. 

When you overlay a program, the linker extracts those 
parts of each object module that must be resident in mem- 
ory throughout the execution of the program and groups 
them into the root segment. These parts are global program 
sections and include global .PSECTs (MACRO-11) or 
COMMON blocks (FORTRAN IV). The root segment re- 
sides in the root region. The linker places the remaining code 
of an object module in an overlay segment. Figure 13 shows 
how this is done for a program that is made up of a main 
object module, MAIN, and two subprogram modules, SUBA 
and SUBB. 

In an overlay structure, you assign a group of overlay 
segments to each overlay region. Only one overlay segment 
is resident in a region at one time and the remaining over- 
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Figure 13. 
Using the Linker to Implement an Overlay Structure 
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lay segments are swapped out to a file called an overlay file. 
The swapping of overlay segments is carried out at run time 
by the Run-time Overlay Handler. For example, assume that 
your program is made up of a main object module, MAIN, 
and six subroutine modules, SUB1 to SUB6. Assume also 
that you define an overlay structure so that: 


¢ The root segment contains MAIN and SUB1 


e A first overlay region is assigned the overlay seg- 
ments produced from SUB2 and SUB3 


e A second overlay region is assigned the overlay seg- 
ments produced from SUB4, SUB5, and SUB6 


Figure 14 shows how the program’s memory is shared. 
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Figure 14. 
Overlay Segments Sharing a Program’s Memory 
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Specifying Overlay Structures 


You specify an overlay structure for your program to the 
linker by using the /O option. This option is used in the 
following format: 


.R LINK 
*save-image,map-file=root-list// 
*object-module-1/O:1 
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*object-module-2/O:1 
* 


*object-module-n/O:r// 


save-image is the file specification in which the 
save image is to be built 


map-file is the file specification of the load map 
to be produced from the linker 


root-list is the list of those object modules, in- 
cluding the main routine, that contain 
code that must be placed entirely in 
the root segment; also, link libraries 
that contain code that is referenced 
elsewhere in the root segment 


object-module-i — is the object module used for the over- 


(i=1,...,n) lay segment 
/03} specifies to which region the 
(j=1.,...,r) overlay segment is assigned 


Assume that you want to create an overlay structure 
in which references are made to code contained in the ob- 
ject libraries LIBA and LIBB. Your command would look 
like the following: 


EXAMPLE 


.R LINK 
*MAIN,MAIN.MAP=MAIN,SUB1,LIBA,LIBB// 
*SUB2/0:1 : | 
*SUB3/0:1 : 
*SUB4/0:2 
+*SUBS/0:2 
*SUB6/0:2// ood 
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Code linked directly from an object library is placed 
in the root segment. If you want to produce an overlay seg- 
ment from an object library module, you must first extract 
it from the library, using the LIBR/EXTRACT option, thereby 
producing an object module in a separate file. You can then 
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link your program and assign your module to an overlay 
region in the usual way. 


Use either the FORTRAN IV or MACRO-11 program you 
created in the exercises in chapter 4, “Debugging Pro- 
grams.” The main program calls each of the subroutines in 
turn. The subroutines shown below do not reference each 
other. 


PRO403 a main program that accepts monthly values and 
prints a histogram 

PRO404 the routine CNVSTR for converting values to 
heights on the histogram 

PRO405 the subroutine HISPRT for printing the histogram 


Design and implement an overlay structure for this program 
by assembling the source files into separate object modules 
and using the linker to create the overlaid program 
HISTO.SAV. The program should use the minimum amount 
of memory without your changing the code of the routines. 
Get a load map of the overlaid program from the linker. 


High-level Language Optimization 


A compiled language program generally uses more mem- 
ory space than an equivalent assembly language program. 
This is because high-level language compilers often in- 
clude a number of general purpose subroutines in the code 
that they produce, such as the OTS for FORTRAN IV. Also, 
the code generator of a compiler is usually far less capable 
than the average MACRO-11 programmer in producing ef- 
ficient machine code. For this reason, many compilers are 
equipped with optimization routines that reduce the code 
generated without affecting the action of the program. 
Different high-level language compilers offer different 
optimization techniques for the code they generate. They 
usually have options that allow you to select the extent to 
which optimization is carried out. For example, BLISS—16 


Generated Code 
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has a very large and complex code generator and, if you se- 
lect full optimization, it generates code only 10% larger than 
that produced from an equivalent MACRO—11 program. 

The two optimization options provided by the FOR- 
TRAN IV compiler are: selection of generated code and in- 
clusion of line numbers or vectors. Additionally, some op- 
timization techniques are automatically performed by the 
FORTRAN IV compiler. 


Basically, there are two ways in which the FORTRAN IV 
compiler can generate code. These two methods are usu- 
ally called in-line code and threaded code. 


Types of code and their characteristics 


In-line code is usually arranged so that it is executed from 
start to end with as few machine code subroutine calls as 
possible. Threaded code is made up of a list of small rou- 
tines. The only purpose of each routine is to call a subrou- 
tine. Before doing this, the routine sets up a data section 
that will be active only during the execution of that sub- 
routine. To determine which type of code to use you should 
consider the following: 


¢ In-line code is always executed faster than threaded 
code because fewer subroutine calls are used 


¢« Unless most of your data exceeds the storage require- 
ments of INTEGER*2 variables (two bytes per vari- 
able), there is little difference in size between in-line 
code and threaded code 


¢ If most of your data uses REAL*4, REAL*8, or COM- 
PLEX:+8 variables, then threaded code uses much less 
memory 


Although the above relationships are usually true, they dif- 
fer from program to program. You should compile and test 
production programs with both in-line and threaded code 
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to determine the best match of speed and size for your 
applications. 


Selection of generated code 


By default, the FORTRAN compiler generates in-line code. 
In order to select threaded code, you use the /CODE option 
as follows: 


FORTRAN/CODE:THR FILENAME 


Connected with the /CODE option are three values that 
select specific types of in-line code appropriate for use in 
your machine’s arithmetic operations. You should include 
the values that agree with your system configuration (check 
with your system manager). 


| EXAMPLE 
| This compilation command informs the compiler that 
' it can use the extended instruction set (EIS): 


| .FORTRAN/CODE:E1S PROG 


Figure 15 illustrates the structure of the object module 
that has been produced from a FORTRAN IV source file us- 
ing the /CODE:THR option. 


For the RT—11 FORTRAN IV compiler, the vector method 
decreases the time needed to compute the address of an 
element in an array of more than one dimension. It does so 
by computing in advance some of the multiplication oper- 
ations and storing the resulting values in a table called a 
vector. If you use the /NOVECTORS option to prevent the 
creation of these vectors, you can reduce the memory space 
used, but you sacrifice some execution speed. 
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Figure 15. 
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Structure of Threaded Code 


START 
INITIALIZATION 


CALL A 


INITIALIZATION 


CALL B 
INITIALIZATION 
CALL A 
INITIALIZATION 
CALL C 
INITIALIZATION 
CALL B 
INITIALIZATION 
CALL D 


STOP 
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Sequence Numbers 


When you are debugging code, it is useful to see the se- 
quence numbers generated by the compiler, because error 
diagnostic messages include these numbers. Sequence 
numbers are also useful if you want to examine compiler- 
generated code. These sequence numbers, however, oc- 
cupy memory. The /NOLINENUMBERS option allows you 
to disable the generation of internal sequence numbers, but 
it should be used only for production programs which you 
think are free of errors. 


| EXAMPLE — 3 a 3 | 
| sFORTRAN/NOLINENUMBERS PROG sss 


i Ti sino Hinata OE 


Additional Optimization Techniques 


In addition to the options discussed above, there are many 
programming techniques that allow you to create more ef- 
ficient FORTRAN IV programs. Other optimization tech- 
niques implemented automatically when your program is 
compiled include: 


e Simplifying arithmetic expressions 


¢ Performing often needed computations, such as loop 
iteration counts, in registers 


¢ Using bit shifting operations to implement multipli- 
cation and division 


Swapping the User Service Routine 


The User Service Routine (USR), which processes your 
program’s file I/O requests, does not reside permanently in 
memory. By default, it is swapped in and out of memory 
as needed, allowing use of more memory. Swapping the USR 
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out of memory makes an additional 2 Kwords available 
for use. Swapping, however, may cause problems with 
FORTRAN IV program execution if your program is very 
large, because the USR may be swapped over some of 
your code. You can prevent USR swapping by using the 
/NOSWAP option. 


EXAMPLE 
There are two ways to use the /NOSWAP option: 


1. Use the /NOSWAP option in your command line to the 
compiler. 


-FORTRAN/NOSWAP PROG 


2. Set USR to NOSWAP by using the monitor command: | 
.SET USR NOSWAP. 


To reset the system to swap USR, use the monitor 
command: 


t 


.SET USR SWAP 
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Using 
Language 
Interfaces 


In the first six chapters of this book, the development of 
programs in MACRO-—11, FORTRAN IV, and BASIC—11, 
independent of one another, is discussed. In this chapter, 
you will learn to write a FORTRAN IV program that calls 
a MACRO-11 subroutine. You will also learn to write a 
MACRO-—11 program that calls a FORTRAN IV subroutine, 
and learn to formulate MACRO—11 subroutines that can be 
called from a FORTRAN IV or BASIC—11 program. If you 
are using BASIC, you will be able to write a BASIC pro- 
gram that calls a MACRO—11 subroutine. 
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Usefulness of Language Interfaces 


When developing a program in FORTRAN IV or BASIC, you 
may find that these languages cannot perform some opera- 
tions or that they perform them in a complex or inefficient 
way. To solve this problem, you can write MACRO-11 
subroutines to be called by your high-level language pro- 
gram, or you can use existing MACRO-—11 subroutines. For 
example, you are programming in BASIC and you want to 
manipulate a device. But BASIC—11 does not provide an 
interface to the hardware address of devices, so you would 
need to write a MACRO—11 subroutine to do the task. 

If you are programming in FORTRAN IV, you may want 
to create a data structure that is not available using the 
FORTRAN IV language alone. You might use MACRO-11 
subroutines to create such a structure and then perform op- 
erations on it. 

If you are programming in MACRO-11, you may find 
user-written FORTRAN IV subroutines and FORTRAN IV 
library or SYSLIB routines useful. It is usually easier to 
create an interface between a MACRO-11 program and 
FORTRAN IV subroutines than to rewrite these routines from 
scratch. 


Calling MACRO—11 Subroutines from a 
FORTRAN IV Program 


To call a MACRO-11 subroutine from a FORTRAN IV pro- 
gram you use the FORTRAN IV CALL statement in the same 
way that you call FORTRAN IV subroutines. The sections 
which follow discuss the conventions used in this process: 


¢ Transferring control 
e Passing arguments 
e Returning function values 


e¢ Using registers 
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e Maintaining the stack 
e Structuring common blocks 


¢ Receiving arguments 


Transferring Control 


When the FORTRAN IV compiler processes a subroutine, 
it generates the instruction that is created in MACRO-11 
by the line: 


JSR PC, subname 


Here ‘‘subname’’ is the global symbol for the entry point 
into the subroutine. If the subroutine is written in 
MACRO-11, you must ensure that it contains a global dec- 
laration of this entry point. You can do this using the 
.GLOBL directive. 

Because the MACRO—11 subroutine is called with JSR 
PC,subname, it must return with the instruction: 


RTS PC 


Passing Arguments 


When a FORTRAN IV program calls a subroutine, it passes 
the arguments in a contiguous block of memory called an 
argument block. This block contains n+1 words where ‘‘n” 
is the number of arguments to be passed. 

The first word in the block is made up of two bytes. 
The high-order byte contains an identifier for the calling 
language. For FORTRAN IV calling routines, this identifier 
is zero. The low-order byte contains the number of argu- 
ments “‘n.’”’ Each word that follows contains the address of 
an argument. The structure of an argument block is shown 
in figure 16. Before calling the subroutine, the main pro- 
gram stores in register R5 the address of the first word of 
the argument block. 
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Figure 16. f 
Structure of an Argument Block 
in FORTRAN IV Subroutine Calls 


LANGUAGE 
IDENTIFIER 
ADDRESS OF ARGUMENT 14 
ADDRESS OF ARGUMENT 2 


ADDRESS OF ARGUMENT N 


R5 


Returning Function Values 


Using Registers 


You can also write MACRO-—11 subroutines that behave like 
FORTRAN IV FUNCTION subprograms. The argument block 
has the same structure as that of a normal subroutine, but 
additional values are returned. The calling FORTRAN IV 
routine looks for these return values in one or more of the 
registers RO to R3. The registers examined depend upon the 
type of function called. These conventions are listed in 
table 6. 


The FORTRAN IV compiler generates code that uses reg- 
isters RO to R4. Your MACRO-11 subroutine may still use 
these registers, because their values are saved whenever a 
subroutine is called. You may use R5 in your MACRO-11 
subroutine after you have referred to it to access the argu- 
ment block. 
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Table 6. 
FORTRAN IV Function Return Conventions 


Type of Function Return Register(s) 


INTEGER#2 
LOGICAL#1 
LOGICAL#2 


INTEGER*4 
LOGICAL#4 
REAL 


RO (low order) 


R1 (high order) 


RO (highest order) 
R1 ; 
R2 : 
R3 (lowest order) 


DOUBLE PRECISION 


RO (high real) 
R1 (low real) 
R2 (high imaginary) 
R3 (low imaginary) 


COMPLEX 


Maintaining the Stack 


The value of the stack pointer (R6) must not change after a 
subroutine execution. If you use the stack to store argu- 
ments or make computations as part of the execution of your 
MACRO-11 subroutine, make sure that the number of stack 
PUSHes equals the number of stack POPs. 


Creating Common Blocks 


When you use the FORTRAN IV COMMON statement to 
create common blocks, the FORTRAN IV compiler gener- 
ates these blocks as named .PSECTs, using the name of the 
common block as the .PSECT name. 
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EXAMPLE Sn : 
The FORTRAN IV statement: 
COMMON /BUF/IAC10), IBC20) 
is equivalent to the MACRO-11 code: 
-PSECT BUF ,RW,D,GBL,REL,OVR 


| IA: -BLKW 10. 

IB: .BLKW = 20. 

FORTRAN IV assigns a blank COMMON block the — 
name: 

| .$$$$. 


Receiving Arguments 


Your MACRO-11 subroutine must be able to locate the ar- 
gument block with which it was called. The address of the 
first word of the argument block is stored in R5 at the start 
of execution of the subroutine. If the subroutine is to be 
called by a variable number of arguments, then you must 
read that number from the low-order byte of the first word 
of the block. 

For calling languages other than FORTRAN IV, the 
high-order byte of the first word in the argument block 
may not be zero. For example, when BASIC-—11 calls a 
MACRO-11 routine, it places the value 202 (octal) into this 
high-order byte. Each word that follows in the block con- 
tains the address of an argument. Therefore, you can use 
the auto-increment mode to access each argument, incre- 
menting R5 each time. Figure 17 shows a MACRO-—11 sub- 
routine that accesses a variable number of arguments that 
were passed by a FORTRAN IV routine. Each argument 
points to an integer. The subroutine then returns the high- 
est integer that was received, using the convention of a 
FORTRAN IV FUNCTION. 
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Figure 17. 
A MACRO-11 Subroutine that Can Be Called 
as a FORTRAN IV Function 


-TITLE GETHST 


GETHST:: 
MOV CRS)+,R1 ;Put number of args in R1 
BIC #177400,R1 ;Clear high order byte 
BEQ 20$ ;Exit if no arguments 
MOV CRS)+,R0 ;Read 1st argument value 
10$: DEC R1 ;Decrement the argument 
BEG 20$ ;Branch if no more args 
MOV CR5)+,R2] ;Get address of next arg 
CMP RO, CR2) ;Ils highest exceeded? 
BGE 15$ s;Branch if not 
MOV CR2),R0 ;Move new highest into RO 
15$:; BR 10$ ;Next argument 
20$: RTS PC sExit at end, 
-END ;Return highest in RO 


Calling FORTRAN IV Routines from a 
MACRO—11 Program 


If you are writing a MACRO-11 program, you may want to 
use existing FORTRAN IV subroutines and functions rather 
than rewrite them. You may also find that it is easier to write 
a subroutine in FORTRAN IV than to write it in MACRO— 
11. Two considerations apply: 


1. You must initialize the Object Time System (OTS). 


2. You must use the conventions for the passing of data 
and control. 


You need not initialize OTS if you are using FORTRAN IV 
library routines written in MACRO-—11, such as those pro- 
vided in FORLIB and SYSLIB. 
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When you link a MACRO-11 main program with object 
modules that include FORTRAN IV routines, you must make 
sure that all the Object Time System (OTS) routines refer- 
enced by the FORTRAN IV code are linked to the program. 
The best way to do this is to write the MACRO-11 pro- 
gram as a subroutine and call it from a simple FORTRAN 
IV program. The FORTRAN IV program will contain only 
a call without arguments to the subroutine, followed by an 
END statement. This coding causes the FORTRAN IV com- 
piler to reference the OTS routines automatically. 

The following example shows a program MAIN.MAC 
with an entry point at the symbol “START” which will be 
linked to FORTRAN IV routines. 


sacrosanct tee mentee eM RS ata Cees MSN om aN pip 


EXAMPLE 


1. Insert a global declaration of the transfer symbol of the 
main program so that it can become a subroutine module, 
for example, using the directive: 


GUOBL= START 


2. Make sure that the main program terminates with the 
instruction: SRE 


RIS uPChe 


3. Remove the transfer symbol from the .END directive so 
that the last line reads: 


~END . 

and not: eo : : : 
. END START : : 
4. Write a FORTRAN IV routine with the following code: oe 


CALL START 
CALL EXIT 
END 


Conventions 
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You can now assemble and compile and link the mod- 
ules in the usual way to produce your load image. 


Conventions similar to those discussed for the FORTRAN 
IV/MACRO-11 interface apply to MACRO—11 routines that 
call FORTRAN IV subroutines. Here is a summary of the 
conventions that apply to the MACRO-11/FORTRAN IV 
interface: 


1. Tocall the FORTRAN IV subroutine, use the 
MACRO-11 instruction: 


JSR PC,subname 


2. The MACRO-11 program must create an argument 
block in the manner previously described and leave 
R5 pointing to the first word in the block. 


3. If the FORTRAN IV routine is a function, it returns 
values in registers RO to R3 as discussed previously. 


4. If you want the values to be kept, the MACRO-11 
routine should save the registers RO to R4 before call- 
ing the FORTRAN IV routine. 


5. If you want to access COMMON blocks that will be 
used by your FORTRAN IV routines, they must be 
declared as .PSECTs in the manner previously 
described. 


Figure 18 shows a MACRO-11 routine that calls a 
FORTRAN IV function and subroutine, using these 
conventions. 
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Figure 18. 


A MACRO-—11 Routine that Calls a FORTRAN IV Function 
and FORTRAN IV Subroutines 


- TITLE 


; GOSUB 


CALLER, MACRO routine calling FORTRAN subrout. 


Macro to call a high level language subroutine 


-MACRO GOSUB SUBR,PARS 


-GLOBL SUBR _ $3Declare subroutine name 
Q$P=0 sInitialize arg count 

. IRP X,<PARS»> ;Start of loop to count args 
Q$P=Q$P+1 sIncrement counter 

-ENDR sEnd of loop 

Q$$P=Q$P+Q$P+2 ;Byte count for arg block 
SUB #Q$$P,SP ;Save space on stack 

MOV SP,RS ;RS points to start of block 
MOV #Q$SP,CRS)+ ;Push no. of arguments 

-IRP XX,<PARS> ;Start of loop to push args 
MOV XX, CRS)+ ;Push next argument 

~ENDR ;End of loop 

MOV SP,R5 ;Restore RS to beg. of block 
CALL SUBR 3;Call the subroutine 

ADD #Q$$P,SP ;Pop the arguments off stack 
-~ENDM GOSUB ;End of Macro definition 


3; Main Subroutine Code 


START:: GOSUB 
CMPB 
BEG 
GOSUB 
BR 
208: GOSUB 
RTS 
RVAL: -FLT2 
C: -FLT2 
-END 


GETVAL , #RVAL ;Call FOR func to input RVAL 
#1,R0 ;RO = 1 if end of data 

20$ ;If end, print result, exit 
RADD,<#RVAL,#C> ;Call FOR routine to accu- 
START smulate total, and repeat 
ROUT, #RVAL sAt end, call FOR routine 

PC ;to print total, and return 
0.0 ;RVAL is floating point acc 
0.0 3;C is floating point overflow 


BASIC—11 Programs that Call 


MACRO—11 Subroutines 


To call MACRO-11 subroutines from your BASIC—11 pro- 
gram, you must first assemble the subroutine with the 
MACRO-11 source code of the BASIC—11 interpreter pro- 
vided in the distribution kit. You then link a new version 
of the BASIC—11 interpreter that allows you to call 
MACRO-11 subroutines, using the BASIC-11 CALL 


statement. 
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Using the BASIC—11 CALL Statement 


In a BASIC-11 program, Assembly Language Routines 
(ALRs) are accessed using the CALL statement, which takes 
the form: 


CALL string-expression (argument-list) 


In this statement, ‘‘string-expression” is the name, en- 
closed in quotes or stored in a string variable, of the ALR. 
‘““Argument-list” is a list of variables that are to be passed 
to or from the ALR. For example, assume that the BASIC— 
11 interpreter has been modified so that it includes an ALR 
that performs single-character input from the terminal, 
without echo or carriage return. Assume that the routine has 
one argument—an integer containing the byte value of the 
character to be returned. You need to use the CALL state- 
ment in your BASIC program to access the ALR. 


EXAMPLE 
The statement: 


1010 CALL "GETCHA" C€C0%) 


in your program places the byte value of the received on) 


character in the variable CO%. 


Modifying the BASIC Interpreter 


To include a tested MACRO-11 subroutine in the BASIC— 
11 interpreter, you must: 


1. Insert the name of the routine in the user routine 
name table in the BSCLI.MAC file. This procedure is 
discussed in chapter 4 of the BASIC—11/RT-11 
User’s Guide. 


2. Make sure that the argument list used in your 
MACRO-11 subroutine uses the same convention as 
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that described in the user’s guide. For example, the 
MACRO-11 routine must take care not to include the 
high-order byte of the first word of the argument 
block, when reading the number of arguments. For 
BASIC-—11, this high-order byte is given the value 
202 (octal). 


3. Assemble your routine with the MACRO-—11 source 
files that make up the BASIC—11 kit. This procedure 
is discussed in chapter 4 of the BASIC—11/RT-11 
Installation Guide. 


4. Build a version of the BASIC—11 interpreter that in- 
cludes support for the CALL statement. This proce- 
dure is discussed in chapter 4 of the BASIC~11 
/RT—11 Installation Guide. 


Practice Writing a FORTRAN IV Program that Calls a MACRO-11 
7—1 Subroutine 


4. Write a FORTRAN IV program (PRO702.FOR) that does 
the following: 


a. Accepts a REAL*4 value from the terminal. If the 
value is —1, the program exits. If it is less than 
—32767 or more than 32767, it repeats the accept 
request. 


Calls the subroutine SUBA with the REAL*4 vari- 
able as the argument. This subroutine is written 
in MACRO-11 and is listed below. It performs an 
operation which may or may not divide the vari- 
able by 2. 


Then print the returned value of the variable on the 
terminal using format F10.3 and go back to step 1. 
Compile your program. Create the MACRO-11 subrou- 
tine listed below, in file PRO701.MAC: 


»~TITLE PRO701 
SUBA:: MOQVB CRS),R1 ;Put number of arguments in R1 
BEQ 20$ s;Exit if no arguments 
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TST CRS)+ ;Point to ist argument 

BIC #200,@CR5)+ ;Clear S6th bit of high order 
sand increment argument pointer 

DEC R1 ;Repeat to end of argument list 

BNE 10$ 

RTS PC ;Return to caller 

-END 


3. Assemble this program using the command: 


~-MAC PRO701 


4. Link your program with the subroutine, and run your 
program. 


Practice Writing a MACRO-—11 Program that calls FORTRAN IV 
7—2 Subroutines 


1. Write the following FORTRAN IV INTEGER*«2 function 
and FORTRAN IV subroutine: 


a. NINPUT. This INTEGER*2 function takes one 
REAL*#4 argument. The subroutine accepts a 
REAL#*4 number from the terminal, giving the 
prompt: 


ENTER NUMBER) 


It puts the number it reads into the REAL#4 func- 
tion argument. If the number is —1.0, the func- 
tion should return the value 1. Otherwise, the 
function value should be 0. 


NOUT. This subroutine receives a REAL*4 argu- 
ment. It prints the value of the argument on the 
terminal and returns. 


2. Create the following MACRO-11 program 
PRO704.MAC which calls both of these routines. 


-TITLE PRO704 
-GLOBL NINPUT,NOUT 
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PRO704:: #ARG,RS ;Point to argument block 
PC,NINPUT ;Read a floating point number 
RO,#1 s3Is returned value = 1 
QUIT sExit if it is 
#200,RVAL ;Clear S6th bit of high order 
#ARG,RS sPoint to argument block 
PC ,NOUT 3Print result 
PRO704 ;Repeat 
PC sReturn to OTSINI 


0.0 sFloating point variable 
1,RVAL sArgument block 


The logic is the same as for practice 7-1. The main 
program must be called by the following FORTRAN IV 
routine PRO703.FOR to initialize OTS. 


PROGRAM OTSINI 
C...-OTS INITIALIZATION PROGRAM FOR MACRO-11 PROGRAM 
C...WHICH CALLS FORTRAN IV SUBROUTINES 

CALL PRO704 

CALL EXIT 

END 


Compile your subroutines and PRO703. Assemble the 
MACRO-11 program using the command: 


-MAC PRO704 


Link all of the object modules together, naming the 
OTS initialization file first: 


-LINK PRO703,PR0704,NINPUT,NOUT,SY:FORLIB 


Run the program. 


Writing a MACRO-—11 Subroutine 


1. Write a MACRO-11 subroutine called SUBA, to do the 
following: 
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Receive any number of arguments from a pro- 
gram. These arguments are .FLT4 format. 


Clear the least significant bit of the exponent (bit 
7 of the most significant word) of each argument, 
and then return. (Make sure that your subroutine 
will work if it is called from a program that was 
not written in FORTRAN IV.) 


Create the FORTRAN IV program PRO702.FOR listed 
below. 


PROGRAM PRO702 
EXTERNAL SUBA 
REAL*4 RVAL 
TYPE 100 
FORMAT C’ENTER NUMBER)’ $) 
READ (5,*,ERR=1110,END=1000) RVAL 
IF CRVAL .EQ@. -1.0) GOTO 9399 
CALL SUBA CRVAL) ICALL MACRO-11 SUBROUTINE 
TYPE 150,RVAL 
150 FORMATC’CHANGED TO)‘ ,F10.3) 
GoTo 50 'REPEAT TILL -1.0 ENTERED 
9939 STOP 
C...NUMBER OUT OF RANGE 
1000 TYPE 1010 
1010 FORMAT ¢’% 7) 
1100 TYPE 1110 
1110 FORMAT €’ ?VALUE BAD OR QUT OF RANGE’) 
GoTo so 'TRY AGAIN 
END 


This program reads a REAL*4 number from the termi- 
nal and calls this subroutine. It then prints the value 
returned from SUBA and loops to get the next value. If 
the number received is —1, it exits. 


Assemble your subroutine. Compile the FORTRAN IV 
program using the command: 


~-FORTRAN PRO702 


Link PRO702.OBJ with your subroutine, and run the 
program. . 
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Practice Writing a MACRO-—11 Program that calls FORTRAN IV 
7—4 Subroutines 


1. 


Write a MACRO-11 program (PROG.MAGC), which will 
call subroutines written in FORTRAN IV. Also write a 
FORTRAN IV routine (OTSINI.FOR) to initialize OTS 
for your program. 


The MACRO-11 program should call the subrou- 
tine NINPUT, giving it the address of a .FLT4 
variable as an argument. If, on return from the 
subroutine, register RO contains 1, then exit. The 
routine returns a floating point value in the argu- 
ment specified. 


Clear the least significant bit of the exponent of 
the floating point variable (bit 7 in the most signif- 
icant word). 


Call the subroutine NOUT, giving it the address 
of the floating point variable as an argument. This 
subroutine prints the value of the variable. On re- 


turn from the subroutine go back to step (a). 


Create the following subroutine NINPUT as file 
PRO705.FOR: 


FUNCTION NINPUTCRVAL) 


C.FORTRAN FUNCTION TO ACCEPT A REAL*4 NUMBER 


INTEGER NINPUT 

REAL*4 RVAL 

DATA NINPUT/0/ 

TYPE 100 

FORMATC’ ENTER NUMBER)’ $) 
READCS,*,ERR=1000,END=999) RVAL 
IF CRVAL .EQ. —-1.0) NINPUT=1 
RETURN 

TYPE 1099 

TYPE 1100 

FORMAT €’ “%) 

FORMAT €’?VALUE BAD OR OUT OF RANGE’) 
GOTO 50 

END 
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Create the following subroutine NOUT as file 
PRO706.FOR: 


SUBROUTINE NOUTCRVAL 9) 
C...SUBROUTINE TO OUTPUT A REAL*4 NUMBER 

REAL*4 RVAL 

TYPE 1000,RVAL 

RETURN 

FORMATC’ ',F10.3) 

END 


Assemble your MACRO-—11 program and compile the 
OTS initialization routines PRO705.FOR and 
PRO706.FOR. Link all of the object modules together, 
naming the OTS initialization file first, for example: 


»-LINK OTSINI,PROG,PRO705,PR0706 


Run the program. 


Practice Using a BASIC—11 Program to Call a MACRO-11 
7—5 Subroutine 


1. 


Create the following BASIC—11 program PRO708.BAS, 
designed to call the assembly language routine SUBA 
which you wrote in practice 7-3. 


300 REM PRO708.BAS 

310 REM 

1000 PRINT “ENTER NUMBER)"; 
1010 INPUT R 

1020 IF R=-1 GOTO 32767 
1030 CALL SUBA CR) 

1040 PRINT R 

1050 GOTO 1000 

32767 END 


Produce a new version of the BASIC—11 interpreter, 
calling it MYBAS.SAV, to include the subroutine 
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SUBA. You will have to create a new version of 
BSCLI.MAC. When you do this, make a copy of 
BSCLI.MAC and call it NEWBCL.MAC instead of edit- 
ing the original source file. 


Run the program PRO708.BAS. It asks you to enter a 
number. If the number is —1, then the program will 
exit. Otherwise it will call SUBA, passing it the num- 
ber as an argument. On return it will output the num- 
ber and then repeat the process. 
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Solutions to Practices 


CHAPTER 1 


1-1. MACRO-11 


-EDIT/CREATE PRO101.MAC 
-MACRO PRO101 


-MACRO/OBJECT:MESS/LIST:MESS PR0O101 


1-1. FORTRAN IV 


~-EDIT/CREATE PRO101.F0R 
-FORTRAN PRO101 


-FORTRAN/LIST:MESS/QBJECT:MESS PRO101 


1-2. MACRO-11 


-EDIT/CREATE PRO102.MAC 
-EDIT/CREATE PR0O103.MAC 
~-EDIT/CREATE PRO104.MAC 


»-MACRO/LIST:PR1234/0BJ:PR1234 PRO102+PR0103+PRO104 
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1-3. FORTRAN IV 

-EDIT/CREATE PRO102.FOR 
»-EDIT/CREATE PRO103.FOR 
-EDIT/CREATE PRO104.FOR 


-FORT/LIST:PR1234/0BJ:PR1234 PRO102+PRO103+PR0104 


1-4. MACRO-11 


~-MACRO PRO101/LIST/SHOW: SRC: COM:MD:MC : ME 


1-5. MACRO-11 
-EDIT/CREATE PRO105.MAC 
-MACRO PRO105 

»-LINK PRO105/MAP 


e 


RT-11 LINK (V08.01 Load Map Friday 10-Feb-84 Page 1 
b c 


PRO105.SAV Title: (PRO10S) Ident: 


a d 
Section Addr Size Global Value Global Value Global Value 


- ABS. 000000 001000} 256. words CRW,I,GBL,ABS,OVR) 


001000 000032)= 13. words CRW,1,LCL,REL,COND 
f 
Transfer address = (001022,) High limit =(001030 = 268.) words 
g h 


1-5. FORTRAN IV 
-EDIT/CREATE PRO105.FOR 
-FORTRAN PRO105 


»-LINK PRO10S/MAP,SY:FORLIB/LIBRARY 
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e b 


RT-11 LINK (08.01 Load Map Friday 10-Feb-84 Page 1 
PRO10S.SAV Title: Ident: FORVO2 c 


a d 
Section Addr Size Global Value Global Value Global Value 


f 


- ABS. 000000 001000) 256. words (CRW,1I,GBL,ABS,OVR) 

$USRSH 000000 $RF2A1 000000 $HRDWR 000000 
«VIR 000001 $NLCHN 000006 $WASIZ 000152 
$LRECL 000210 $TRACE 004737 

oTss! 001000 013744) = 3058. words CRW,I,LCL,REL,CON) 

$sOTSI 001000 sdOTI 001026 $$O0TI 001030 
$SETOP 001240 $$SET 002712 $OPNER 003206 
$CHKER 003244 $IQEXI 003270 $EOL 003336 
EOL$ 003340 IFWS$ 003510 $IFW 003514 
$SIFW 003520 IFWS$$ 00355G MOI$SS 003626 
MOL$SS 003626 MOI$SSM 003632 MOI$SA 003636 
MOI$SIS 003642 MOL$SIS 003642 REL$ 003642 
MOISIM 003646 MOI$SIA 003652 MOI$MS 003656 
MOISMM 003662 MOISMA 003666 MOI$0S 003672 
MOI$SOM 003676 MOISO0A 003702 MOI$1S 003706 
MOI$1M 003714 MOI$1A 003722 ISN$ 003730 
$ISNTR 003734 LSN$ 003750 $LSNTR 003754 
RETS$L 004110 RETS$F 004114 RETSI 004122 
RET$ 004124 $INITI 004160 $CLOSE 004276 
SERRTB 005054 $ERRS 005161 $FCHNL 010722 
$FIO 011564 $$FIO 011570 $PUTRE 012734 
$PUTBL 013242 $GETBL 013452 $EOFIL 013636 
sEOF2 013652 SAVRG$ 013672 THRD$ 014050 
$STPS 014052 STP$ 014060 $STP 014060 
Foos 014064 S$EXIT 014104 $WAIT 014230 
$VRINT 014272 $DUMPL 014574 

OTS$P 014744 000054] = 22. words CRW,D,GBL,REL,OVR) 

SYS$I 015020 000000|= 0. words CRW,I,LCL,REL,CON) 

USER$I 015020 000000/= 0. words CRW,I,LCL,REL,CON) 

$CODE 015020 000032) 13. words CRW,I,LCL,REL,CON) 

ssOTSC 015020 

oTssoO 015052 001140) = 304. words CRW,I,LCL,REL,CON) 

$sOTSO 015052 $OGPEN 015052 

syssoO 016212 000000;= 0. words CRW,1I,LCL,REL,CON) 

$SDATAP 016212 000040) 16. words CRW,D,LCL,REL,CON) 

OTS$D 016252 000010/= 4. words CRW,D,LCL,REL,CON) 


NHCLN$ 016256 
OTS$S 016262 000002)= 1. words CRW,D,LCL,REL,CON) 
sAOTS 016262 
SYS$S 016264 = 0. words CRW,D,LCL,REL,CON) 
$DATA 016264 = 0. words CRW,D,LCL,REL,CON) 
USER$D 016264 = 0. words CRW,D,LCL,REL,CON) 
-$$$$. 016264 = 0. words CRW,D,GBL,REL,OVR) 


Transfer address = @15020,) High limit =(016262 = 3673.) words 


g h 
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CHAPTER 2 


2-1. Foreground/Background Jobs 
-EDIT/CREATE PRO201.MAC 
-EDIT/CREATE PR0202.FOR 

-MACRO PRO201 

»LINK PRO201/FOREGROUND 
-FORTRAN PRO202 

-LINK PRO202,SY:FORLIB/LIBRARY 
.SET USR NOSWAP 

.FRUN PRO201 


F> 
PRO2O1-1, TEXT: “FDATA FOR FOREGROUND JOB. 


B> 


.“BRUN PR0202 

PRO202-1, Enter your data (-1 to finish): S6 

PRO202-1, Accepted data as: S56.00000 

PRO2O02-I1, Enter your data (-1 to finish): 34 

PRO202-I, Accept 

F> 

PRO201-I, Finished processing text: DATA FOR FOREGROUND JOB. 
PRO2O1-I, TEXT: “FTHIS IS LINE TWO! 


B> 

ed data as: 34.00000 

PRO202-1, Enter your data (-1 to finish): “B-1 

STOP -- 

F> 

PRO2O1-I, Finished processing text: THIS IS LINE TWO! 
PRO2O1-I, TEXT: “F 

B> 

F> 

PRO201-I, Normal successful completion 


B> 


-UNLOAD F 
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CHAPTER 3 


3-1. BASIC-11 


-R BASIC 
BASIC-11/RT-11 V02-03 
OPTIONAL FUNCTIONS CALL, NONE, OR INDIVIDUAL)? A 


READY 
NEW PRO301 


READY 

10 PRINT "WHAT IS YOUR GAME?" 
20 INPUT 40,A$ 

30 A=SYSC4) 

SAVE PR0301 


READY 
OLD PRO0301 


READY 
LIST 


PRO301 10-FEB-84 10:02:33 
10 PRINT “WHAT IS YOUR GAME?"; 
20 INPUT #0,A$ 

30 A=SYSC4) 


READY 
RUN 


PRO301 10-FEB-84 10:02:40 
WHAT IS YOUR GAME?“C 


STOP AT LINE 20 


READY 
SUB 10!GAME! NAME 
10 PRINT “WHAT IS YOUR NAME?" 


READY 
COMPILE PRO301 


READY 
BYE 


»R BASIC 
BASIC-11/RT-11 V02-03 
OPTIONAL FUNCTIONS CALL, NONE, OR INDIVIDUAL)? A 


READY 
RUN PRO301 
WHAT IS YOUR NAME?A.N. OTHER 
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CHAPTER 4 


4-1. MACRO-11 


-EDIT PRO403.MAC 


MTAB:: 


START: 


LOOP: 


BADVAL: 


INTRO: 


PROMPT: 
VALUE: 
HEIGHT: 
INB: 
VAL: 


TITLE 
- MACRO 
»PSECT 
-$$.%. 
«ASCII 
-PSECT 
WORD 
-ENDM 


«MCALL 
-GLOBL 


MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 
MONTH 


MOV 
«PRINT 
MOV 
MOV 
-PRINT 
-GTLIN 
MoV 
JSR 
MOV 
CMP 
BEQ 
CLR 
DIV 
MOVB 
SOB 
MoV 
JSR 
EXIT 


-ASCII 
-ASCII 
-ASCII 
-ASCITI 
-ASCIZ 
-ASCIZ 
-BLKB 
-BLKB 
-BLKB 
BYTE 
EVEN 
» END 
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PRO403 Debugging Exercise 


MONTH, NAME 
MOVNAM 


/NAME/<200> 


$$. 


;Macro to set up month table 


s;Each entry points to string 
;This is the string 


;This is the space for entry 


«PRINT, .EXIT,.GTLIN 


CNVSTR,HISPRT 


JAN 
FEB 
MAR 
APR 
MAY 
JUN 
JUL 
AUG 
SEP 
oct 
NOV 
DEC 


#MTAB,R2 

# INTRO 
#12.,R3 
#HEIGHT,R4 
CR2)+ 
#INB, #PROMPT 
#INB,RS 
PC,CNVSTR 
RO,R1 
#-1.,R0 
BADVAL 

RO 

#5,R0 

RO, CR4)+ 
R3,LOOP 
#HEIGHT,RS 
PC,HISPRT 


;Declare subroutines 


;Build months table 


3Get address of months table 
sPrint introduction 
sInitialize month loop 

3Get address of heights table 
;Mth part of prompt for month 
3Get decimal number string 
;Get address of input buffer 
;Convert string to binary 

; ** Copy returned value CDIV) 
3Check returned value for -1 
s;I1f so branch past height calc 
; ** Clear high order of value 
;Convert value to height 
;Place height in height table 
;Branch for next month 

;Pass address of height table 
;Output the histogram 


/THIS PROGRAM PRINTS A HISTOGRAM FROM 12 / 
/MONTHLY VALUES./<15><12> 

/THE MONTHS ARE JANUARY TO DECEMBER./<15><12> 
/PLEASE ENTER YOUR TWELVE VALUES:/ 

/THEY MUST BE IN THE RANGE 0 TO 100/ 


7: /¢200> 
12.*4. 
12. 

81. 

-1. 


START 
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»=MACRO PRO403,PR0404,PR0405 
«LINK/EXEC:HISTO PROS03,PR0404,PR0405 


»RUN HISTO 

THIS PROGRAM PRINTS A HISTOGRAM FROM 12 MONTHLY VALUES. 

THE MONTHS ARE JANUARY TO DECEMBER. 

PLEASE ENTER YOUR TWELVE VALUES: THEY MUST BE IN THE RANGE 0 TO 100 
JAN: BAD 


FEB: 100 
MAR: 90 
APR: 80 
MAY: 70 
JUN: 60 
JUL: 50 
AUG: 40 
SEP: 30 
OcT: 20 
NOV: 10 
DEC: 0 
1008 | dad 
-! ee 
30! ee #08 
-} eee 808 
80! Ott 048 048 
-! oe #0 848 
703 Oe Oe OE 
-3 Oe 04H FO 8O8 
60! OOH OH OE ee te 
-} OOH OOO Oe oe ee 
50% OOH FEE FOF 04 Ae ee 
-1 OOH FOE OEE AO Oe ee 
403 OOH OOH EH Oe Oe ee ae 
-1 FOE OEE HE EE Oa a a 
303 OOH HEE OO OE OE a a 
-! OOH OEE OO Oe Oa a a 
20! OH POE OEE EE OO a a a 
-3 OOO EEE AO OE A a a a ae 
103 OOF OEE AE OE OE aa aa aa a 
-1 OH OEE OEE OE a a a a a 
0+ ----- 2-2 2 en ee ee ee ee ee 


JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC 
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4-1. FORTRAN IV 


-E 
Cc 


Qoanaanan 


50 


75 


Cc 


DIT PR0404.FOR 


(AoE RSRSSERERER RRR SRERE RRR EERE RRR RRR RR RR RA RRR RRR ARR RRR REESE RARER EES ES 


DEBUGGING AND FAILURE ANALYSIS 


PRACTICE 4-1, PR0404.FOR 


[PARR RRRRERRRSERERRSEE SER ER RRR R RRR RE RE RRS SERS ERE RE RRRESERRRRSREERE SEES SE 


FUNCTION CNVSTRCSTRING) 
BYTE STRINGC8),CURCHA 
INTEGER POINTA,DIGIT 
REAL CNVSTR,DIV 


BAD VALUES ARE SET TO -1.0 


VALUES OUT OF RANGE ARE TREATED AS BAD 


INITIALIZE RETURN VALUE AND POINTER INTO STRING 


CNVSTR*=0.0 
POINTA=1 


PROCESS EACH CHARACTER, STRING IS TERMINATED BY SPACE OR LENGTH#8 


IF CPOINTA .GT. 8) GO TO 100 


CURCHA=STRINGCPOINTAD 

IF CCURCHA .EQ@. ’% *) GO TO 
IF CCURCHA .GT. ’9’) GO TO 
IF CCURCHA .LT. ’0’) GO TO 
DIGIT=CURCHA-/0’ 
CNVSTR#=€10.0*CNVSTRI+DIGIT 


POINTA=POINTA+1 

GO TO 10 

IF CCURCHA .NE. ’.’) GO TO 
DIV=1.0 


POINTA=POINTA+1 


100 
50 
50 


200 


IF CPOINTA .GT. 8) GO TO 100 


CURCHA=STRINGCPOINTAD 

IF CCURCHA .GT. ’% ’) GO TO 
IF CCURCHA .GT. ’9’) GO TO 
IF CCURCHA .LT. °0’) GO TO 
DIV=DIV*10.0 
DIGIT=CURCHA-’0’ 
CNVSTR*CNVSTR+DIGIT/DIV 

Go TO 75 


100 
200 
200 


! ** CORRECTION CGT --> EQ) 


C BRANCH TO HERE AT END OF STRING PROCESSING 


C BRANCH TO HERE IF VALUE IS BAD 


0 IF CCNVSTR .GT. 100.0) GO TO 200 


RETURN 


200 CNVSTR=-1.0 


RETURN 
END 


Solutions to Practices 159 


«FORTRAN PR0403,PR0404,PR0405 
«LINK PR0403,PR0404,PR0405,SY:FORLIB/LIBRARY 


»RUN PRO403 

THIS PROGRAM PRINTS A HISTOGRAM FROM 12 MONTHLY VALUES. 

THE MONTHS ARE JANUARY TO DECEMBER. 

PLEASE ENTER YOUR TWELVE VALUES: THEY MUST BE IN THE RANGE 0 TO 100 


JAN: BAD 
FEB: 100 
MAR: 90 
APR: 80 
MAY: 70 
JUN: 60 
JUL: SO 
AUG: 40 
SEP: 30 
OcT: 20 
NOV: 10 
DEC: 0 
1008 dated 
-! we# 
90! oon #48 
-{ eee wee 
80! FE OO 04E 
-! OFF #44 44F 
703 EH FES HOH AE 
-! FHF FEW AEE AE 
60! OOF Ee 4 a OE 
-1 OHH EF 4H 4 OE 
50! TI MILLI LLL 
-]} OEE EH BAH EAE EES BAP 
40! EO EE AEE AE EE A 
-! EE EE AEE FEE EE EE 
303 OEE EH HEE EE AEE a a 
-} SHE HEE HAE FEE EEE FE OE OE 
20! FEE HEH HE HEE EEE ER AO EO AE 
-4 OEP EEE EEE OAH EE EE OE PE 
103 A ee ed 
-{ COE HEE FEE FEE EE EE a a a 
0+ ------- - ee ee ee ee ee ee eee 


JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC 
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4-1. BASIC-11 


-R BASIC 
BASIC-11/RT-11 V02-03 
OPTIONAL FUNCTIONS CALL, NONE, OR INDIVIDUAL)? A 


READY 
OLD PR0403 


READY 
SUB 340!1)!1%) 
340 HXCIZI=FNAZCVZCI%Z)) \ NEXT 1% 


READY 
LIST 


PR0403 10-FEB-84 15:34:18 

10 REM SHSEHEHESEHHEEEE ESE HEEEEHEHEEEEEEHHHHEHHHEHHEHHEEEEH EERE HEED 
20 REM 

30 REM DEBUGGING AND FAILURE ANALYSIS 

40 REM 

50 REM PRACTICE 4-1, PR0403.BAS 

60 REM 

70 REM (Za R RRR SER RRR RRR RRR RES E RE SEER RRR ERE RRR ERR R RE RRR SERRE REA SS RRS ES 
80 REM 

90 REM INITIALIZE VARIABLES AND ARRAYS 

100 REM ssssseescnzuszeenenuseseseeezes 

110 DIM VC12%) 

120 DIM M$C€12%) 

130 DIM H%€12%) 

140 REM 

150 REM MAIN PROGRAM LOGIC 

160 REM HHEHFHEREREEEE HEE EEE 

170 REM 

180 REM READ MONTH STRINGS INTO ARRAY 

190 REM ssssseeeseeeuecceenasansseses 

200 FOR I%=1% TO 12% \ READ M$CIZ) \ NEXT 1% 

210 REM 

220 REM PRINT INSTRUCTIONS 

230 REM sseasuneneesecesses 

240 PRINT “THIS PROGRAM PRINTS A HISTOGRAM FROM 12 MONTHLY VALUES." 
250 PRINT “THE MONTHS ARE JANUARY TO DECEMBER.” 

260 PRINT “PLEASE ENTER YOUR TWELVE VALUES: THEY MUST BE IN THE RANGE 0 TO 100" 
270 REM 

280 REM ACCEPT VALUES AS STRINGS, PROMPTED BY THE MONTH 

290 REM ssessecusneessnessusescnesseesanesesssusesesese 

300 FOR 1%=1% TO 12% \ PRINT MSCI%Z>": "3; \ LINPUT #0%,V$ \ GOSUB 10000 
310 REM 

320 REM CONVERT EACH VALUE INTO A HEIGHT INTEGER 

330 REM sssseseneneesesenenesensesesseesaeeseens 

340 HXCIZ=FNAXCVCI2Z9) \ NEXT 1% 

350 REM 

360 REM DISPLAY HISTOGRAM 

370 REM seeseeneuseenezen 

380 GOSUB 11000 

390 REM 

400 REM END OF MAIN PROGRAM LOGIC 


410 REM SSSR EREE 


420 GO TO 32767 
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10000 REM 

10010 REM SUBROUTINE TO CONVERT STRING INTO A REAL NUMBER 

10020 REM sescucneneesseseucusssennenasseeesseesasesennns 

10030 REM BAD VALUES ARE SET TO -1.0 

10040 REM VALUES OUT OF RANGE ARE TREATED AS BAD 

10050 VCI%)=0% 

10060 LZ=LENCV$) \ FS"SEGSCV$,1%,1%) \ IF F$<o™ THEN V$=SEGSC(V$,2%,L%) 
10070 IF F$="" THEN 10180 

10080 IF F$>"9" THEN 10110 

10090 IF F$<"0" THEN 10110 

10100 VCI%I=10*VCIXZD+VALCF$) \ GO TO 10060 

10110 IF F$<>".™" THEN VCI%)=-1 \ GO TO 10180 

10120 D=1 

10130 D=D*10 \ L2=LENCV$) \ FS$=SEGSCV$S,1%,1%) \ IF FS<>"" THEN V$=SEGSCVS$,2%,L%) 
10140 IF F$="" THEN 10180 

10150 IF F$>"3" THEN VCI%Z)"-1% \ GO TO 10180 

10160 IF F$<"0" THEN VCI%)=-1% \ GO TO 10180 

10170 VCIZI=VCIZI+VALCF$)/D \ GO TO 10130 

10180 IF VCI2)>100 THEN VCI%)=-1 

10190 RETURN 

11000 REM 

11010 REM PRINT HISTOGRAM 

11020 REM ssssseseuunucns 

11030 PRINT \ PRINT \ PRINT 

11040 FOR I%=20% TO 1% STEP -1% 

11050 I$=STRS$CIZ*S) \ IF 1%<20% THEN I$=" "+I$ 

11060 IF 2%*C€1%/2%)"1% THEN PRINT I$; \ GO TO 11080 

11070 PRINT " -"5 

11080 PRINT "i"; 

11090 FOR J%=1% TO 12% 

11100 IF H%CJ%)=1% THEN PRINT " ###". \ HZCJ%=HZCUZ9-1% \ GO TO 11140 
14110 IF I1%<>1% THEN 11130 

11120 IF HXCJ%)=-1% THEN PRINT “ BAD"; \ GO TO 11140 

11130 PRINT " me 

11140 NEXT J% \ PRINT \ NEXT 1% 

11150 PRINT ™ O+%; \ FOR I%=1% TO 12% \ PRINT “----" 3 \ NEXT 1% \ PRINT 
11160 PRINT “ ;s \ FOR [%=1% TO 12% \ PRINT ® "3M$CI%); \ NEXT I% \ PRINT 
11170 RETURN 

15000 REM 

15010 REM FUNCTION TO CALCULATE HEIGHT 

15020 REM s=sasseseseeuunnneeezeaseces 

15030 DEF FNAXCX)=INTCX*20/100) 

20000 REM 

20010 REM DATA DECLARATION FOR MONTH STRING ARRAY 

20020 REM ssseneneeeeeseneeeneeen esses eee 

20030 DATA JAN,FEB,MAR,APR,MAY, JUN, JUL,AUG, SEP, OCT,NOV, DEC 

32000 REM 

32010 REM END OF PROGRAM 

32020 REM ssennnneneeeesn 

32767 END 
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READY 
RUN 


PR0403 10-FEB-84 15:34:47 

THIS PROGRAM PRINTS A HISTOGRAM FROM 12 MONTHLY VALUES. 

THE MONTHS ARE JANUARY TO DECEMBER. 

PLEASE ENTER YOUR TWELVE VALUES: THEY MUST BE IN THE RANGE 0 TO 100 


JAN: BAD 
FEB: 100 
MAR: 90 
APR: 80 
MAY: 70 
JUN: 60 
JUL: 50 
AUG: 40 
SEP: 30 
OCT: 20 
NOV: 10 
DEC: 0 
100% one 
ae ne 
903 eee 048 
-{ ee #48 
80! Oe 808 FOF 
-{ oo O48 048 
70! OOF 000 ee Oe 
-! OOF FOE HEH Oe 
60! OOF 008 ee ee Oe 
-3 OOF #08 FEE OH FOE 
Sot OOF OE HEE HEE OO 
-! OOF FOE HEE HE A ee 
403 OOF FOE EE A a a 
-} OOF OE HEE EE OO a 
303 OOF OEE OEE HE OE a 
-! OOF FEE HEE EO OO a a ee 
20! HE OEE OEE AOE OO a a a ae 
-4 OOF FEE HEE OE OO a a a ae 
10% OOF FOE OE EE AO Oe a a a ae 
-} OOF FEE EH OH OE a a a a 
0+ ------ - eH ee ee ee ee ee ee ee ee 


JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC 


READY 
REPLACE PR0403 


READY 
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CHAPTER 5 


5-1. FORTRAN IV 

-EDIT/CREATE PROSO1.FOR 

-EDIT/CREATE PROS02.FOR 

-EDIT/CREATE PROSO3.FOR 

-EDIT/CREATE PROSO4.FOR 

-FORTRAN PROSO1,PROS02,PR0S03,PR0S04 

«LIBRARY/CREATE TEXLIB PROS02,PRO0S03 

-LIBRARY TEXLIB PROS04/ INSERT 

-LIBRARY/LIST:TT: TEXLIB 

«LINK PROSO1,TEXLIB/LIB,SY:FORLIB/LIB 

-RUN PROSO1 

Dear Mr Griffiths, 

During our last quarter, our records showed that you owed us 
16.27. 

We have been expecting your payment since July 10th 1977. 
Accordingly we sent you a letter of invoice at that time. 
Regrettably this was an error on our part. 


PLEASE SEND THE MONEY STRAIGHT AWAY. 


Yours sincerely, 


A.N. Other CManager) 

-EDIT PROSO04.FOR 

-FORTRAN PROSO04 

-LIBRARY TEXLIB PROSO4/REPLACE 

-LINK PROSO1,TEXLIB/LIB,SY:FORLIB/LIB 
-RUN PROSO1 


Dear Mr Griffiths, 


During our last quarter, our records showed that you owed us 
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16.27. 

We have been expecting your payment since July 10th 1977. 
Accordingly we sent you a letter of invoice at that time. 
Regrettably this was an error on our part. 


PLEASE ACCEPT OUR APOLOGIES. 


Yours sincerely, 


A.N. Other (Manager) 


5-2. MACRO-11 

-EDIT/CREATE PROSOS.MAC 

-EDIT/CREATE PROSOG.MAC 

-EDIT/CREATE PROSO7.MAC 

-EDIT/CREATE PROSOS.FOR 

-LIBRARY/MACRO/CREATE PRMACS PROS06,PR0507 
-MACRO/OBJECT:PROSOS PRMACS/LIBRARY+PROSOS 

-FORTRAN PROSOS 

-LINK PROSO8,PRO0S0S,TEXLIB,SY:FORLIB 

»RUN PROSOS8 

Dear Mr Griffiths, 

During our last quarter, our records showed that you owed us 
16.27. 

We have been expecting your payment since July 10th 1977. 
Accordingly we sent you a letter of invoice at that time. 
Regrettably this was an error on our part. 


PLEASE ACCEPT OUR APOLOGIES. 


Yours sincerely, 


A.N. Other (Manager) 


Solutions to Practices 


CHAPTER 6 


6-1. MACRO-11 


~-MACRO PRO403,PR04904,PR0405 


-R LINK 


*HISTO,HISTO=PR0403// 


*PRO404/0: 1 
*PRO40S5/0:1// 
#4o 


RT-11 LINK V08.01 
HISTO .SAV Title: 
Section Addr Size 
- ABS. 000000 001000 
S$OHAND 001000 000106 
$OTABL 001106 000034 
001142 000626 


MOVNAM 001770 000060 
Segment size = 002050 


Overlay region 000001 
002052 000126 


Segment size = 000126 


Overlay region 000001 
002052 000376 


Segment size = 000376 


Load Map 
PRO403 Ident: 


Global Value 


= 256. words 
-QOHAND 000000 
= 3S. words 
$OVRH 001002 
$ODF 1 001102 
= 14. words 
= 203. words 
MTAB 001142 
= 24. words 
=» S32. words 


Segment 000001 


= 43. words 
CNVSTR 002052 
= 43. words 


Segment 000002 
= 127. words 
HISPRT 002052 
= 127. words 


Friday 10-Feb-84 11:10 


Global Value Global 
CRW, 1,GBL,ABS,OVR) 
CRW,1,GBL,REL,CON) 

O$READ 001024 O$DONE 

$ODF2 001104 
CRW,D,GBL,REL,OVR) 
CRW,1,LCL,REL,CON) 


CRW, 1,LCL,REL,CON)D 


CRW,1,LCL,REL,CON) 


CRW,1,LCL,REL,CON) 


Transfer address = 001172, High limit = 002446 = 659. words 


6-1. FORTRAN IV 


-FORTRAN PRO403,PR0404,PR0405 


-R LINK 


*HISTO,HISTO=PR0403,SY:FORLIB// 


*PR0O404/0:1 
*PRO40S/0:1// 
#*C 
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Value 


001036 
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RT-11 LINK V08.01 
HISTO .SAV Title: 


Section Addr Size 


ABS. 000000 001000 


$OHAND 001000 000106 


SOTABL 001106 000034 
oTSss! 001142 017752 


Load Map 


-MAIN. 


Global 


= 256. 
$USRSW 
.- OHAND 
SWASIZ 

= 35. 
$OVRH 
$ODF 1 

= 14. 

= 4085. 
$saTs! 
$CVTCB 
$CVTDI 
cCLC$ 
CIF$ 
CIL$ 
DIF SMS 
DIF$SS 
MUF SMS 
MUF SSS 
$sOTI 
SINITI 
BLE$ 
BGE$ 
BLT$ 
$CLOSE 
CMFSIS 
$CMR 
CMFSII 
CMF $MP 
CMF SPM 
CMF SSM 
ERR$ 
SOPNER 
$EOL 
$ERRS 
$FI0 
MOF SPS 
MOF SRA 
$TTYIN 
ADISSM 
ADISIM 
ADI SMM 
CMISSM 
CMISIM 
CMI SMM 
$$IFR 
$IFW 
ILWS$ 
$TVS 
MOI$SM 
MOLSIS 
MOISIA 
MOISMA 
MOTSOA 
MOIS1A 


Ident: 


Value 


words 

000000 
000000 
000152 
words 

001002 
001102 
words 

words 

001142 
001156 
001156 
001170 
001200 
001312 
001324 
001354 
001646 
001676 
002236 
004414 
004554 
004S66 
004576 
004644 
005442 
005462 
005510 
005532 
005556 
005576 
006012 
006064 
006214 
006473 
013102 
014264 
014306 
014372 
014562 
014576 
014612 
014626 
014642 
014656 
014672 
014752 
015064 
015212 
016030 
016040 
016050 
016064 
016100 
016120 
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FORVO2 


Global 


Value 


Global 


CRW,1,GBL,ABS,OVR) 


$RF2A1 000000 $HRDWR 
.VIR 000001 $NLCHN 
$LRECL 000210 $TRACE 
CRW,1,GBL,REL,CON) 
OSREAD 001024 O$DONE 
SODF2 001104 
CRW,D,GBL,REL,OVR) 
CRW,1,LCL,REL,CON) 
$CVTFB 001142 $CVTFI 
$CVTCI 001156 $CVTDB 
cics 001170 CID$ 
CLD$ 001170 $DI 
CLF$ 001200 $RI 
CLI$ 001316 DIFSPS 
DIF$IS 001334 $DIVF 
$DVR 001354 MUFSPS 
MUF$IS 001656 $MULF 
$MLR 001676 s$sOTI 
$SETOP 002446 $$SET 
NMI$1M 004532 NMI$1I 
BEQ$ 004556 BGT$ 
BRAS 004570 BNE$ 
CAIs 004606 CALS 
CMFSPS 005422 CMFSMS 
$CMPF 005450 CMF$SS 
CMFSPI 005474 CMFSMI 
CMF$SI 005514 CMFSPP 
CMFSIP 005542 CMFSSP 
CMF$MM 00SS62 CMFSIM 
$DUMPL 005630 END$ 
SEND 006024 $ERR 
$CHKER 006122 $IDEXI 
EOL$ 006216 $ERRTB 
EXIT 012234 $FCHNL 
$$FIO 013106 MOFSMS 
MOF$RS 014270 MOFSRM 
MOF$RP 014312 $GETRE 
ADI$SS 014552 ADI$SA 
ADI$IS 014566 ADISIA 
ADI$MS 014602 ADISMA 
CMI$SS 014616 CMISSI 
CMI$SIS 014632 CMISII 
CMISMS 014646 CMISMI 
IFRS 014662 $IFR 
IFR$$ 014724 IFWS$ 
SsIFW 014756 IFWS$$ 
$ILw 015070 TvS$ 
MOI$SS 016024 MOL$SS 
MOI$SA 016034 MOISIS 
REL$ 016040 MOISIM 
MOI$MS 016054 MOISMM 
MOI$0S 016070 MOISOM 
MOI$1S 016104 MOI$1M 
ICI$S 016126 ICISM 
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Value 


000000 
000006 
004737 


001036 


001142 
001156 
001170 
001170 
001200 
001320 
001342 
001642 
001664 
002234 
004120 
004544 
004564 
004574 
004614 
005426 
005462 
005500 
005526 
005546 
005572 
006000 
006042 
006146 
006366 
012240 
014252 
014276 
014316 
014556 
014572 
014606 
014622 
014636 
014652 
014666 
014746 
015014 
015210 
016024 
016040 
016044 
016060 
016074 
016112 
016132 


Solutions to Practices 


RT-11 LINK VO08. 


HISTO .SAV 


OTS$P 021114 
SYS$I 021170 
USER$I 021170 
$CODE 021170 


oTS$0 021676 


SYS$0 023036 
$DATAP 023036 
OTS$D 023346 


OTS$S 023356 


SYS$S 023360 
$DATA 023360 
USER$D 023600 
-$$$$. 023600 
Segment size = 


Overlay region 
OTS$s! 023602 


01 
Title: 


000054 
000000 
000000 
000506 


001140 


000000 
000310 
000010 


000002 


000000 
000220 
000000 
000000 
023600 


000001 
001134 


Load Map 
«MAIN. 


ICI$P 
DcI$sMm 
MOISIP 
MOI SMP 
MOISPA 
ISN$ 
$LSNTR 
MOL$MS 
MOL$SP 
MOL$PM 
MOLSIM 
$PUTRE 
RETSI 
$GETBL 
SAVRG$ 
STP$ 
SEXIT 
TVL$ 
$TVF 
Tva$ 
$TVP 
SWAIT 
SAF$SM 
SAF $MM 
SAI$SM 
SAISMM 
SAL$SM 
SAL$MM 
= 22. 
= 0. 
= 0. 
= 163. 
$sOTSc 
= 304. 
$sOTsO 


Segment 
= 302. 

ADF SIM 
SUF $MM 
SUF $SM 
scvTIc 
cDI$ 

CFI$ 

ADF $PS 
ADF $MS 


Ident: 


016136 
016150 
016162 
016176 
016222 
016246 
016272 
016436 
016456 
016500 
016520 
016544 
017064 
017332 
017552 
017740 
017764 
020232 
020240 
020254 
020262 
020424 
020772 
021024 
021036 
021056 
021070 
021104 
words 
words 
words 
words 
021170 
words 
021676 
words 
words 
words 
023352 
words 
023356 
words 
words 
words 
words 
words 


000001 
words 

023602 
023620 
023646 
023706 
023720 
023734 
024026 
024050 
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ICI$A 016140 DCI$S 
DCI$P 016154 DCI$A 
MOI$SP 016164 MOI$PP 
MOI$PS 016206 MOI$PM 
MOI$OP 016230 MOI$1P 
$ISNTR 016252 LSN$ 
MOLS$SM 016426 MOLS$SA 
MOL$MM 016446 MOLSMA 
MOL$PP 016464 MOL$MP 
MOL$PS 016506 MOL$PA 
MOL$IA 016526 MOL$IP 
RETS$SL 017052 RET$F 
RETS$ 017066 $PUTBL 
SEOFIL 017516 $sE0F2 
THRD$ 017730 $sSTPS 
$STP 017740 FOO$s 
sOTIS 020110 $ssOTIS 
$TVL 020232 TVF$ 
TVD$ 020246 $TVD 
$TVQ 020254 TVP$ 
TvI$ 020270 $TVI 
$VRINT 020466 SAFSIM 
SVF$IM 021002 SVFS$SM 
SVF$MM 021030 SAIS$SIM 
SVI$SIM 021044 SVI$SM 
SVI$MM 021062 SALS$IM 
SVL$IM 021074 SVL$SM 
SVL$MM 021110 
CRW,D,GBL,REL,OVR) 


CRW,1,LCL,REL,CON) 
CRW,1,LCL,REL,CON)D 
CRW,1,LCL,REL,CON)D 


CRW,1I,LCL,REL,COND 
SOPEN 021676 

CRW,I,LCL,REL,CON)D 
CRW,D,LCL,REL,CON) 
CRW,D,LCL,REL,COND 


CRW,D,LCL,REL,CON) 
CRW,D,LCL,REL,CON)D 
CRW,D,LCL,REL,CON) 


CRW,D,LCL,REL,CON)D 
CRW,D,GBL,REL,OVR) 


CRW,1,LCL,REL,CON)D 


ADF $PM 
ADF $MM 
ADF SSM 
$CVTID 
$1c 

$IR 

SUF SPS 
SUF$IS 


023610 
023632 
0236S2 
023706 
023720 
023734 
024032 
024060 


SUF $PM 
SUF SIM 
$CVTIF 
ccli$s 
$ID 
ADFS$IS 
SUF SMS 
$ADDF 


016144 
016156 
016172 
016214 
016236 
016266 
016432 
016452 
016470 
016512 
016534 
017056 
017122 
017532 
017732 
017744 
020112 
020240 
020246 
020262 
020270 
020770 
021004 
021034 
021046 
021066 
021076 


023614 
023642 
023672 
023720 
023720 
024020 
024036 
024066 


168 


Programming with RT—11, Volume 1 


Friday 10-Feb-84 11:13 
FORVO2 

SUF$SS 024114 $SBR 
$ADR 024120 ADD$ 
MOF$SP 024570 MOFSIM 
MOFSOM 024614 MOFSOA 
SUI$SS 024634 SUI$SA 
SUI$IS 024650 SUI$IA 
SUI$MS 024664 SUI$MA 
CML$MI 024700 CML$SI 
SAL$SP 024712 SVL$IP 
SAL$MP 024726 SVL$MP 


CRW,1,LCL,REL,CON) 
CRW,1,LCL,REL,COND 
CRW,1I,LCL,REL,COND 


RT-11 LINK V08.01 Load Map 
HISTO .SAV Title: .MAIN. Ident: 
$SUBF 024102 
ADF$SS 024120 
MOFSSM 024560 
MOFSIP 024606 
MOFS$OP 024630 
SUIS$SM 024644 
SUISIM 024660 
SUISMM 024674 
SAL$IP 024710 
SVL$SP 024720 
SYS$I 024736 000000 = QO. words 
USER$I 024736 000000 = 0. words 
$CODE 024736 000S22 = 169. words 
CNVSTR 024736 
oTS$0O 025460 000000 = 0. words 
sysso 025460 000000 = 0. words 
$DATAP 025460 000032 = 13. words 
aTS$D 025512 000000 = 0. words 
OTS$S 025512 000000 = QO. words 
SYS$S 025512 000000 = QO. words 
$DATA 025512 000020 = 8. words 
USER$D 025532 000000 = 0. words 
Segment size = 001730 = 492. words 
Overlay region 000001 Segment 000002 
OTS$I 023602 000766 = 251. words 
DII$PS 023602 
DII$SS 023616 
ICI$ 023734 
Icos 024136 
CMISMP 024344 
CMISPI 024366 
NMISMI 024440 
NPISMI 024462 
SAF$SP 024474 
SAF$MP 024526 
SAI$SP 024540 
SAISMP 024560 
SYS$I 024570 000000 = 0. words 
USER$I 024570 000000 = O. words 
$CODE 024570 000700 = 224. words 
HISPRT 024570 
oTssoO 025470 000000 = Oo. words 
sysso 025470 000000 = 0. words 
$DATAP 025470 000220 = 72. words 
OTS$D 025710 000000 = 0. words 
OTS$S 025710 000000 = 0. words 
SYS$S 025710 000000 = 0. words 
$DATA 025710 000022 = 9. words 
USER$D 025732 000000 = 0. words 
Segment size = 002130 = S56. words 


CRW,1I,LCL,REL,CON)D 
CRW,1,LCL,REL,COND 
CRW,D,LCL,REL,CON)D 
CRW,D,LCL,REL,CON) 
CRW,D,LCL,REL,CON)D 
CRW,D,LCL,REL,COND 
CRW,D,LCL,REL,CON) 
CRW,D,LCL,REL,CON) 


CRW,I,LCL,REL,COND 


DII$MS 023610 DII$IS 
$DVI 023616 OCI$ 
$ECI 023750 acos 
CMISIP 024334 CMI$SP 
CMI$PP 024354 CMI$PS 
CMISPM 024374 NMIS$II 
NMISPI 024446 NPISII 
NPI$PI 024466 SAFS$IP 
SVF$IP 024504 SVF$SP 
SVF$MP 024532 SAI$IP 
SVI$IP 024546 SVI$SP 
SVI$MP 024564 


CRW,1I,LCL,REL,CON) 
CRW,1,LCL,REL,CON)D 
CRW,1,LCL,REL,CON) 


CRW,1,LCL,REL,CON) 
CRW,1,LCL,REL,CON) 
CRW,D,LCL,REL,CON)D 
CRW,D,LCL,REL,CON) 
CRW,D,LCL,REL,CON) 
CRW,D,LCL,REL,CON) 
CRW,D,LCL,REL,CON) 
CRW,D,LCL,REL,CON) 


Transfer address = 021170, High limit * 025730 = S612. 


words 
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024114 
024134 
024574 
024624 
024640 
024654 
024670 
024702 
024716 
024732 


023614 
023726 
024130 
024336 
024360 
024402 
024456 
024472 
024506 
024536 
024550 


Solutions to Practices 169 


CHAPTER 7 


7-1. FORTRAN IV 


-EDIT/CREATE PRO702.FOR 
PROGRAM PRO702 
C...READ A REAL*4 NUMBER, CALL SUBA AND PRINT RESULT 
C...SUBA IS WRITTEN IN MACRO-11 
EXTERNAL SUBA 
REAL*4 RVAL 
50 TYPE. 100 
100 FORMAT €’ ENTER NUMBER>’ ,$) 
READ €5,*,ERR=1100,END=1000) RVAL 
IF CRVAL .EQ@. -1.0) GOTO 999 
CALL SUBACRVAL) !CALL MACRO-11 SUBROUTINE 
TYPE 150,RVAL 
150 FORMAT €’ CHANGED TO>’,F10.3) 
GOTO SO 'REPEAT TILL -1.0 ENTERED 
999 STOP 
C...NUMBER OUT OF RANGE 
1000 TYPE 1010 
1010 FORMAT €’% “) 
1100 TYPE 1110 
1110 FORMAT €’ ?VALUE BAD OR OUT OF RANGE’) 
GOTO 50 !'TRY AGAIN 
END 


-FORTRAN PRO702 

-EDIT/CREATE PRO701.MAC 

-MACRO PRO701 

»-LINK PRO702,PRO0701,SY:FORLIB/LIB 
»-RUN PRO702 

ENTER NUMBER> 123 


CHANGED TO> 61.500 
ENTER NUMBER> 1 


CHANGED TO> 0.500 
ENTER NUMBERD>2 
CHANGED TO> 2.000 


ENTER NUMBER>-1 


STOP -- 
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7-2. FORTRAN IV 


~-EDIT/CREATE NINPUT.FOR 
FUNCTION NINPUTCRVAL) 
C...FORTRAN FUNCTION TO ACCEPT A REAL*4 NUMBER 
INTEGER NINPUT 
REAL*4 RVAL 
DATA NINPUT/0/ 
50 TYPE 100 
100 FORMAT €’ ENTER NUMBER>’$) 
READ (5,*,ERR=1000,END=999) RVAL 
IF CRVAL .EQ@. -1.0) NINPUT=1 
RETURN 
999 TYPE 1099 
1000 TYPE 1100 
1093 FORMAT €’ “) 
1100 FORMAT €’ ?VALUE BAD OR OUT OF RANGE’) 
GOTO 50 
END 


»-EDIT/CREATE NOUT.FOR 
SUBROUTINE NOUTCRVAL) 
C...-SUBROUTINE TO QUTPUT A REAL*4 NUMBER 
REAL*4 RVAL 
TYPE 1000,RVAL 
RETURN 
1000 FORMAT €’% ’,F10.3) 
END 


-EDIT/CREATE PRO704.MAC 

-EDIT/CREATE OTSINI 

-FORTRAN NINPUT,NOUT,OTSINI 

-MAC PRO704 

-LINK PRO703,PR0704,NINPUT,NOUT,SY:FORLIB 


-RUN PRO703 
ENTER NUMBER> 123 
61.500 

ENTER NUMBER>1 
0.500 

ENTER NUMBER>2 
2.000 

ENTER NUMBER>-1 


Solutions to Practices 


7-3. MACRO-11 


»EDIT/CREATE SUBA.MAC 
-TITLE SUBA 
SUBA:: MOVB CR5),R1 


Get number of arguments 


? 
BEQ 20$ ; Branch if no arguments 
TST CRS)+ ; Point to 1st argument 
10$: BIC #200,aCRS)+ ; Clear S6th bit of high order 
DEC R1 3; Repeat to end of list 
BNE 10$ 
20$: RTS PC ; Return to caller 
END 


-EDIT/CREATE PR0O702.FOR 

-MAC SUBA 

-FORTRAN PRO702 

-LINK PRO702,SUBA,SY:FORLIB/LIB 
»RUN PRO702 

ENTER NUMBER> 123 


CHANGED TO> 61.500 
ENTER NUMBER>1 


CHANGED TO> 0.500 
ENTER NUMBER>2 
CHANGED TO> 2.000 


ENTER NUMBER>-1 


STOP -- 


7-4. MACRO-11 


-EDIT/CREATE PROG.MAC 
-TITLE PROG 
-GLOBL NINPUT,NOUT 


PROG:: MOV #ARG,RS ;Point to argument block 
JSR PC,NINPUT ;Read a real number 
CMP RO,#1 ;Is returned value = 
BEQ QUIT sExit if it is 
BIC #200,RVAL ;Clear 56th bit of high order 
MOV #ARG,RS ;Point to argument block 
JSR PC ,NOUT sPrint result 
BR PROG ;Repeat 
QUIT: RTS PC sReturn to OTSINI 
RVAL: -FLT4 0.0 ;Floating point variable 
ARG: »~WORD 1,RVAL ;Argument block 
»END 


-EDIT/CREATE OTSINI.FOR 
PROGRAM OTSINI 
CALL PROG 
CALL EXIT 
END 
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-EDIT/CREATE PRO70S 

-EDIT/CREATE PRO706 

«MACRO PROG 

-FORTRAN OTSINI,PRO705,PR0706 

»LINK/EXEC:PROG OTSINI,PROG,PRO70S,PRO706,SY:FORLIB/LIB 


-RUN PROG 
ENTER NUMBER> 123 
61.500 
ENTER NUMBER>1 
0.500 
ENTER NUMBER>2 
2.000 
ENTER NUMBER>- 1 


7-5. NEWBCL.MAC 


-TITLE BSCLI 
- IDENT /000008/ ;Copyright (€c) 1974, 1975, 1976 
sby Digital Equipment Corporation 


ROOT 
-GLOBL FTABI ,BKGI 


-GLOBL SUBA ** Modification for practice 


we 


FTABI: .WORD FTBL 

FTBL: -WORD SUBNM 3 ** Modification for practice 
-WORD 0 

SUBNM: .BYTE 4 ; ** Modifications for practice 
«ASCII "“SUBA" ; . 
- EVEN ; : 
-WORD SUBA 3; ** End of modifications 

BKGI: «WORD 0 


Command to Reassemble Root of Interpreter 
-MACRO/OBJECT:NEWBCL BSMAC+BSASM+NEWBCL 
Replies to SUCNFG Program 


MYBAS 


NEWBCL 


SUBA 


index 


Absolute binary image, 34-36 
Addresses, gaining access to, 85-86 
ALLOCATE, 18, 39, 40 
ALPHABETIZE, 39 
Arguments: 

passing, 135-136 

receiving, 138-139 
Assembly Language Routines 

(ALRs), 143 


3B, 88 
*$B, 86 
Background program code, gaining 
access to, 79-82 
Background programs, enabling de- 
bugging aids, 83-84 
\ (backslash) command, 89 
Base address, 38, 85-86 
BASIC command, 61 
BASIC programs, 59-72 
creation of, 61 
editing of, 64-69 
entering interprter, 60-61 
entering new lines, 62 
execution of, 63-64 
leaving interpreter, 72 
MACRO-—11 subroutines in, 142- 
144 
optional functions in, 60-61 
program names in, 61 
retrieving saved program, 62-63 
saving, 69-70 
using immediate mode, 71 


BITMAP, 39 
BOTTOM, 39 
Breakpoint, 86-90 
BOUNDARY, 39 
BUFFER, 47 
BYE, 72 


CALL, 143 
Code, 127-128 
in-line, 127-128 
threaded, 127-128, 129 
CODE, 128 
COMPILE, 70 
CREATE, 111-113 
CROSSREFERENCE, 22 
Cross-reference (CREF) listing, 21-23 


D, 81 
DEBUG, 39, 83 
Debugging, 55-56, 75-104 
BASIC, 91-104 
finding errors, 77-79 
FORTRAN IV, 27-28, 38 
gaining access to background pro- 
gram code, 79-82 
gaining access to foreground pro- 
gram code, 82 
on-line, 38-39, 85-91, 92 
testing programs, 76-77 
DEL, 67-68 
DELETE, 114 
Deletions (editing), 67-68 
Delimiter, 68 
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Index 


DEPOSIT, 81 

Device queue program, 51 
DISABLE, 24, 25 

Dummy routines, 76-77, 81, 91-93 
DUPLICATE, 39 


E, 80 
Editing (BASIC), 64-69 

changes, 68-69 

deletions, 67-68 

insertions, 65 

listing, 64-65 

resequencing, 66-67 
ENABLE, 24, 25 
ERRLOG, 51 
Error messages, FORTRAN IV, 27-28 
Errors, 77-79 

cause of, 77-78 

location of, 78-79 

See also Debugging 
EXAMINE, 80 
EXECUTE/ALLOCATE, 39 
EXECUTE command, 55, 110 
EXECUTE option, 39 
EXTEND, 39 
Extended Memory (XM), monitor, 51 
EXTRACT, 113-114, 125 


FB monitor. See Fore- 
ground/Background monitor 
FDT (FORTRAN IV Debugging Tool), 
38, 39, 83 
FILL, 39 
FOREGROUND, 39, 46-47 
Foreground/Background (FB) moni- 
tor, 45-50 
foreground/background commu- 
nication, 47-50 
foreground jobs, 46-47 
initiating jobs, 46 
terminating jobs, 50 
Foreground program code, 82 
Foreground programs, enabling de- 
bugging aids, 84-85 
FORTRAN command, 7 
FORTRAN IV compiler options, 24- 
28 
ALLOCATE, 18 
CODE, 128 
HEADER, 26-27 
LIST, 9-10 
NOOBJECT, 7-8 
OBJECT, 7 
ONDEBUG, 27 
SHOW, 25-26 


FORTRAN IV Debugging Tool (FDT), 
38, 39, 83 
FORTRAN IV programs, 3-41 
allocating storage space for output 
files, 18 
compilation of, 4, 7 
controlling production of object 
module, 7-8 
debugging lines, 27 
development of, 6 
error messages, 27-28 
executing source files, 55 
generating listings, 8-11 
linking, 28-41 
MACRO-11 subroutines in, 134- 
139 
multiple source files, 12-14, 15 
See also Debugging; Program exe- 
cution 
FORTRAN IV subroutines, in a MA- 
CRO-11 program, 139-142 
conventions, 141 
initializing OTS, 140-141 
FRUN, 46, 47, 54 
FRUN/PAUSE, 82, 84 


*G, 88 
GET, 79 
GLOBAL, 39 


HEADER, 26-27 


Immediate mode, 71 
INCLUDE, 40 
In-line code, 127-128 
INSERT, 114 
Insertions (editing), 65 
Interfaces. See Language interfaces 
Interpreter, BASIC: 
entering, 60-61 
leaving, 72 
modifying, 143-144 


KMON, 46 


Language interfaces, 133-150 
BASIC-11 programs calling MA- 
CRO-11 subroutines, 142-144 
FORTRAN IV routines in MA- 
CRO-11 program, 139-142 
MACRO-11 routines in FOR- 
TRAN IV program, 134-139 
Language optimization, high level, 
126-131 
additional techniques, 130 


Index 


generated code, 127-128, 129 
sequence numbers, 130 
vectors, 128 
LDA, 34, 36, 40 
LEVEL, 52 
Libraries, 107-119 
creation of, 111-113 
macro, 109-110, 112-113, 115 
maintenance of, 114-115 
object, 108-109, 111-112, 113-115 
LIBRARY option, 40, 109-110 
LIMIT, 41 
LINK/DEBUG, 38, 83-84 
Linker options, 36-41 
ALLOCATE, 39, 40 
ALPHABETIZE, 39 
BITMAP, 39 
BOTTOM, 39 
BOUNDARY, 39 
DEBUG, 39, 83 
DUPLICATE, 39 
EXECUTE, 39 
EXECUTE/ALLOCATE, 39 
EXTEND, 39 
FILL, 39 
FOREGROUND, 39, 46-47 
GLOBAL, 39 
INCLUDE, 40 
LDA, 34, 36, 40 
LIBRARY, 40, 109-110 
LIMIT, 41 
LINKLIBRARY, 40, 108, 109 
MAP, 29, 40, 79-80 
MAP/ALLOCATE, 40 
MAP/WIDE, 40 
NOBITMAP, 40 
NOEXECUTE, 40 
PROMPT, 40 
ROUND, 40 
RUN, 40 
SLOWLY, 40 
STACK, 36, 40 
SYMBOLTABLE, 40 
TOP, 41 
TRANSFER, 41 
WIDE, 40 
XM, 41. 
XM/LIMIT, 41 
Linking, 4, 28-41 
load image files, 31-36 
load map files, 29-31 
LINKLIBRARY, 40, 108, 109 
LINK/MAP, 29, 79 
LIST command, 64-65 
LIST option, 9-10, 114 
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Listings: 
FORTRAN IV: 
generating, 8-11 
optional information in, 25-27 
MACRO-11: 
cross-reference, 21-23 
generating, 8-11 
optional information in, 19-21 
LISTNH, 64 
LOAD, 47 
Load image files, 31-36 
absolute binary image, 34-36 
relocatable image, 33-34 
save image, 31-33 
Load map, 29-31, 79-80, 84 
Load module, 4 


MACRO command, 4, 109-110 
MACRO directive, 112 
MACRO-11 assembler options, 18- 
24 
ALLOCATE, 18 
CROSSREFERENCE, 22-23 
DISABLE, 24 
ENABLE, 24 
LIST, 9-10 
NOOBJECT, 7-8 
NOSHOW, 20-21 
OBJECT, 7 
SHOW, 19, 21 
MACRO-11 programs, 3-41 
allocating storage space for output 
files, 18 
assembly of, 4 
controlling production of object 
module, 7-8 
development of, 5 
executing source files, 55 
FORTRAN IV subroutines in, 139- 
142 
generating listing, 8-11 
linking, 28-41 
multiple source files, 11-12, 13, 15 
See also Debugging; Program exe- 
cution 
MACRO-11 subroutines: 
in a BASIC-11 program, 142-144 
modifying interpreter, 143-144 
using CALL statement, 143 
in a FORTRAN IV program, 134- 
139 
creating common blocks, 137- 
138 
maintaining the stack, 137 
passing arguments, 135-136 
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MACRO, in FORTRAN IV (cont.) 
_- receiving arguments, 138-139 
returning function values, 136 
transferring control, 135 
using registers, 136-137 
Macro libraries: 
creation of, 112-113 
maintenance of, 115 
use of, 109-110 
MACRO option, 112-113 
MAP, 29, 40, 79-80 
MAP/ALLOCATE, 40 
MAP/WIDE, 40 
MCALL directive, 109 
Memory limitations, 122 
See also Language optimization; 
Overlays 
Monitors: 
Extended Memory, 51 
Foreground/Background, 45-50 
Single Job, 44-45 


NEW, 61 

NOBITMAP, 40 
NOEXECUTE, 40 
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OTS (Object Time System), 139-141 
OTS errors, 28 
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linking, 28-41 
storage space for output files, 18 
process of, 4 
Program execution, 43-56, 63-64 
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that facilitate program development. Included are detailed discussions of 
the MACRO assembler, FORTRAN compiler, BASIC interpreter, as well as, 
the RT-11 linker. It also examines the execution of foreground, background, 
and system jobs and discusses the use of ODT and VDT in debugging 
programs. The last chapters of this volume focus on the RT-11 facilities 
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overlays, and language interfaces. 
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